Moin,
ich bin mir nicht ganz sicher, ob ich wirklich verstanden habe, was du machen willst und was schief läuft, aber du hast auf jeden Fall beim "else" den begin/end-Block vergessen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, x: integer;
begin
x := 0;
for i := 0 to FileListBox1.Count - 1 do
begin
If not Fileexists(inttoStr(x) + SaveDialog1.Filter) then
begin
Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);
end
else
begin
inc(x);
Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);
end;
end;
FileListBox1.Update;
end;
Vielleicht klappt es ja schon damit.
Ansonsten könnte man das Ganze auch etwas vereinfachen, wenn ich mich gerade nicht vertue:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, x: integer;
begin
x := 0;
for i := 0 to FileListBox1.Count - 1 do
begin
If fileexists(inttoStr(x) + SaveDialog1.Filter) then
inc(x)
Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);
end;
FileListBox1.Update;
end;
Vielleicht klappts ja damit. Ansonsten müsstest du noch mal genauer beschreiben, was eigentlich nicht klappt. Wird Datei 0 gar nicht geschrieben oder steht das falsche drin?
Bis denn
Bommel