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.