Zeos y EmptyTable

[Pedro-Juan]

Hola a tod@s.

Delphi 6, InterBase 6, Zeos 6.6.3

Me cambie a Zeos hace unas semanas y estoy muy contento por varios motivos, pero el más importante es haberme librado del BDE.

Ahora tengo un problema, en Zeos no existe (al menos a mi me da un error de compilación) el EmptyTable, y necesito vaciar una tabla auxiliar que necesito temporalmente.
Lo estoy haciendo de esta manera, porque con While not Eof siempre me deja un registro sin borrar (o dos, cosa extraña):

Código Delphi [-]
procedure VaciarAUXTABLE;  
var nCont, nReg: Integer;  
begin  
nCont := 0;   
nReg := DataModule.T_AUXTABLE.RecordCount;
     for nCont := 0 to (nReg + 1) do
            if (DataModule.T_AUXTABLE.FieldByName('NomTit').AsString <> '') or  
               (DataModule.T_AUXTABLE.FieldByName('NomConte').AsString <> '') then DataModule.T_AUXTABLE.delete;  
end;

¿Me podeís indicar si existe algo en Zeos para hacer esto? Muchas gracias y un saludo.

[CrazySoft]

probaste con sentencias SQL, para borrar la tabla

Código Delphi [-]
function vaciar(tabla,conexion:string);
Begin
   with tzquery.create(self) do
   try
      connection:=conexion;
      sql.add('delete from '+tabla);
      execsql; 
   finally
      free;
   end;
end;

[Pedro-Juan]

Muchas gracias CrazySoft, lo probaré.

Aunque yo me refería a un mandato del tipo EmptyTable.

Un saludo.

[[eduarcol]]

Empezado por Pedro-Juan

Muchas gracias CrazySoft, lo probaré.

Aunque yo me refería a un mandato del tipo EmptyTable.

Un saludo.

es preferible realizarlo via SQL, mas rapido y eficiente.