Текущая 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;

[000555]