Очистка таблицы (с проверкой)

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

TTable имеет метод EmptyTable.

Пример:

try

with Table1 do

begin

Close;

Exclusive := true;

Open;

EmptyTable;

Close;

end;

except

on E: EDBEngineError do

ShowMessage(E.Message);

end;

{/codecitation}

Добавить комментарий