Zitat von
Catbytes:
Und so?
Delphi-Quellcode:
Query_Picture.First;
while not Query_Picture.Eof do
begin
Filename := Query_Picture.FieldByName('filename').AsString;
if not FileExists(Filename) then
Query_Picture.Delete
else
if not Query_Picture.Eof then // <--- Aenderung
Query_Picture.Next;
end;
Grad so aus dem Kopf - ungetestet...
Gleiche Problem wie beim Beitrag davor...
Nach Delete ist leider schon Schluß, so dass die nächste Abfrage nicht mehr zur Geltung kommt.