|
|
|
|
Одной строкой
Очистка таблицы (с проверкой)
TTable имеет метод EmptyTable.
Пример:
|
try with Table1 do
begin
Close ;
Exclusive := true ;
Open ;
EmptyTable ;
Close ;
end ;
excepton E: EDBEngineError do ShowMessage(E.Message) ;
end ;
|
[000464]
|
|
|
|
|