Guten Morgen,
ich habe es mal etwas umgeformt.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, x: integer;
begin
x := 0;
for i := 0 to FileListBox1.Count - 1 do
begin
while Fileexists(inttoStr(x) + SaveDialog1.Filter) do
inc(x);
Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);
end;
FileListBox1.Update;
end;
Bei Deiner Version fehlt ein begin end block.
@Luckie
Zitat von
Luckie:
Warum nimmst du nicht die Zählvariable der Schleife für die Dateinamen?
Weil man die Schleifenvariable innerhalb der Schleife nicht ändern sollte.
Grüße
Klaus