Текущая TTable пуста



Автоп статьи: Галимарзанов Фанис

Проверить таблицу - имеет она записи или нет, можно с помощью простой функции


Function NotEmptySet(inSet:TDataSet): boolean;
begin
Result := Not (inSet.Bof and inSet.eof);
end;

Проще некуда, используются известные свойства DataSet.Bof и DataSet.Eof Удалить все записи из таблицы (вместо EmptyTable)


while NotEmptySet(dm.taAb) do
dm.taAb.Delete;


Далее: Дублируем TTable со всеми индексами »»