Очистка таблицы (с проверкой) TTable имеет метод EmptyTable. Пример: try with Table1 do begin Close; Exclusive := true; Open; EmptyTable; Close; end; except on E: EDBEngineError do ShowMessage(E.Message); end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
TTable имеет метод EmptyTable.
Пример:
try with Table1 do begin Close; Exclusive := true; Open; EmptyTable; Close; end; except on E: EDBEngineError do ShowMessage(E.Message); end;