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;
function vaciar(tabla,conexion:string); Begin with tzquery.create(self) do try connection:=conexion; sql.add('delete from '+tabla); execsql; finally free; end; end;