[TRUCO DELPHI] Vaciar los Registros de una Query.
delphi
Function DBEmptyTable( const DatabaseName, TableName : string): Boolean; var Query : TQuery; begin Query := TQuery.Create(nil); try Query.DatabaseName := DatabaseName; Query.SQL.Clear; Query.SQL.Add('DELETE FROM '+TableName); Query.ExecSQL; Result := True; finally Query.Free; end; end;
Saludos!