Gelöschte Datei immer noch vorhanden?

[nahpets]

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.

[bcvs]

Lass mal das try - except weg, damit du die Exception im Original angezeigt bekommst.

[Uwe Raabe]

Zitat von nahpets:

Liefert TFile.Delete keinen Rückgabewert, der Dir was zum Erfolg / Misserfolg des Löschens sagt?

Nein, denn TFile.Delete ist eine procedure. Es würde aber eine Exception ausgelöst, wenn das nicht klappen würde.