Hallo
ich möchte Jpeg Bilder aus einem Verzeichnis löschen die ich vorher in einem Image betrachten kann.
Leider stürzt das Programm dann ab, die Exe Datei verschwindet und ich bekomme eine Project.exe.000 Datei ?!
Was mache ich falsch? Auch wenn ich das Image vorher mit
Image1.Picture.Assign(Nil);
lösche, gleiches Symptom
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';
Image1.Picture.LoadFromFile(Filename);
...
Image1.Picture.Assign(Nil);
if FileExists(FileName) then
DeleteFile(FileName);
end;
end;