Speichern einer Serie von Dateien

[semike]

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