ich bin dabei ein Programm zu schreiben, das Labyrinthe erstellt.
Diese sollen später gespeichert und wieder geladen werden können.
Beim Speichern habe ich nun folgendes Problem:
Die Labyrinthe sollen mit einem SaveDialog in eine txt-Datei gespeichert werden.
Ich möchte jetzt, dass ein Dateiname vorgeschlagen wird, der von den anderen Dateinamen (in dem Ordner) abhängt!
Bsp: Wenn es in dem Ordner schon die Dateien "Labyrinth_1.txt","Labyrinth_2.txt" und "Labyrinth_3.txt" gibt, soll er den Dateinamen "Labyrinth_4" vorschlagen. (Also "Labyrinth_" und dann die kleinste freie Nummer.)
Mein script für diesen Vorgang sieht so aus:
Delphi-Quellcode:
fertig := false;
i := 1;
while not fertig do begin
if FileExists('save_files\Labyrinth_'+IntToStr(i)+'.txt') then begin
inc(i);
end else begin
SaveDialog1.FileName := 'Labyrinth_'+IntToStr(i)+'.txt';
SaveDialog1.Execute;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
fertig := true;
end;
end;
Wenn man das erste mal auf speichern klickt, passiert genau das richtige, aber beim zweiten (und dritten,...) mal schlägt er IMMER den Namen "Labyrinth_1" vor !!
Was mache ich falsch ?
MFG mathis
[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]