Löschen von Jpeg Dateien

[zeras]

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;