|
Автоп статьи: Галимарзанов Фанис
Проверить таблицу - имеет она записи или нет, можно с помощью простой
функции
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 пуста