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