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