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

Delphi , Компоненты и Классы , TTable и TQuery

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

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

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 пуста раздела Компоненты и Классы TTable и TQuery может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TTable и TQuery ::