Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.618 Beiträge
 
Delphi 12 Athens
 
#8

AW: Löschen von Jpeg Dateien

  Alt 17. Mär 2020, 17:08
Wenn du schon auf FileExists prüfst, dann solltest du das schon vorher machen und nicht erst versuchen, das Bild zu laden.
So ähnlich hat es himitsu schon geschrieben.

Delphi-Quellcode:
uses jpeg...
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
  i: integer;
begin
  for i := 1 to 10 do
  begin
    FileName := 'c:\temp\delPic\' + IntToStr(i) + '.jpg';
    [B]if FileExists(FileName) then begin[/B]
      Image1.Picture.LoadFromFile(Filename);

...

      Image1.Picture.Assign(Nil);

      DeleteFile(FileName);
    end;
  end;
end;
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat