Liefert TFile.Delete keinen Rückgabewert, der Dir was zum Erfolg / Misserfolg des Löschens sagt?
Zuerst mal den abfragen.
EDIT:
Ok, habe mal unter
http://docwiki.embarcadero.com/Libra...s.TFile.Delete geschaut, Delete ist 'ne Prozedur, also nix mit Rückgabewert.
Ist wohl anders als beim DeleteFile aus Delphi 7-Zeiten.
Das Try würd' ich etwas abwandeln:
Delphi-Quellcode:
try
TFile.Copy(bild, bild2);
except
on e :
Exception do begin
showmessage(e.
Message + #13 + bild2 + '
wurde gelöscht, ist aber noch vorhanden !');
end;
end;
Im Except-Block die gelieferte Fehlermeldung nicht auszuwerten, dafür aber die eigene, vermutete bzw. erwartete Fehlermeldung auszugeben, halte ich nicht zwingend für eine gute Idee. Man kann mit seiner Annahme richtig liegen, muss es aber nicht.