Hallo,
ich möchte, dass auf Knopfdruck eine neue Datei erstellt wird, deren Dateiname sich immer um eins erhöht!. Das funktioniert auch soweit, aber ich muss von Hand immer die nullte Datei erstellen und finde den Fehler nicht, warum das so ist! Vielleicht seht ihr ja den Fehler und könnt mir helfen!
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
inc(x);
Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);
end;
FileListBox1.Update;
end;