Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#4

AW: Löschen von Jpeg Dateien

  Alt 17. Mär 2020, 14:42
Lass die Schleife mal rückwärts laufen.
Da hier nicht aus einer Liste gelösch wird, wobei sich diese Liste ändert, ist die Richtung somit egal.

Auch Image1.Picture zu löschen ist egal, da die Datei nur kurz während des LoadFromFile geöffnet ist und es danach keine Verbindung mehr zur Datei gibt.



Das FileExists ist im Prinzip auch egal (für den gezeigten Zeil des Codes), da die Datei definitiv vorhanden sein muß, weil wenn nicht, dann raucht das LoadFromFile vorher schon mit einer Exception aus der Methode raus.

Keine Ahnung was ... ist, aber bis auf LoadFromFile kann es hier keine Exception geben.
DeleteFile liefert einen Fehlercode, wobei hier weder dessen Result noch GetLastError ausgewertet wird.

Und nichts an dem gezeigten Code kann das Programm beenden, da die VCL um den Aufruf dieser Methode ein Try-Except hat und dann via Application.ShowException den Fehler nur anzeigt.
$2B or not $2B

Geändert von himitsu (17. Mär 2020 um 14:45 Uhr)
  Mit Zitat antworten Zitat