Problem bei Datei-Erstellung

[Bbommel]

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