Alle Datensätze mit veraltetem Datum löschen

[mkinzler]

Delphi-Quellcode:

While not Table.Eof do
begin
    if Table1.FieldByName('Datum').Value < Now then Table1.Delete else Table.Next;
end;