Ich vermute, dass es mit dem Dateinamen Probleme gibt. Es wird der Index i am Ende angehängt. Damit lautet der Dateiname dateiname.bmp1 .. dateiname.bmp10
Hier ein Codeschnipsel (nicht getestet) der das regeln sollte:
Delphi-Quellcode:
procedure Speichern;
var
strFileName: String;
i: Integer;
begin
if SaveDialog1.Execute then
begin
strFileName := SaveDialog1.FileName;
Insert('%d', strFileName, LastDelimiter('.', strFileName)-1);
for i := 1 to 10 do
begin
WechsleImage(i);
SaveImage(Format(strFileName, [i]);
end;
end;
end;
Die Idee ist es, den Dateinamen vorher mit einem Platzhalter für den Index auszustatten.
Hoffe das hilft Dir weiter.
Grüße
Michael