no me funciona
es desde Delphi lo hice como en tu ejemplo algo asi:
begin
if modulo.Atemporal.Open then
modulo.Atemporal.First;
while not modulo.Atemporal.Eof do
begin
modulo.Atemporal.delete;
modulo.Atemporal:next;
end;
Pero me da este error despues del then
[Error] Unit2.pas(69): Type of expression must be BOOLEAN
que puede ser
|