Опять про воостановление индексов в Paradox

← →
sniknik (2002-03-21 15:11) [3]

Расказывать особо нечего вот весь (рабочий) код.
У батона Caption как наверное догадываетесь "Переиндексация"

procedure TForm1.Reindex(Table: TTable);
begin
Check(DbiRegenIndexes(Table.Handle));
end;

procedure TForm1.Button2Click(Sender: TObject);
var OldCursor : TCursor;
begin
OldCursor := Screen.Cursor;
Screen.Cursor := crHourglass;
if Table1.Active then Reindex(Table1);
Screen.Cursor:= OldCursor;
end;

А хендл он одинаковый что для таблици что для формы только на разные данные указывает. т.е. поставьте так Check(DbiRegenIndexes(Handle)); функцию и Delphi возьмет хендл формы и даст ошибку (не при компиляции а на этапе выполнения).

Опять про воостановление индексов в Paradox Найти похожие ветки