Nummer der Datei um 1 erhöhen

**AnfängerDelphi**

Hallo an alle,

ich habe folgenden Quellcode geschrieben:

Delphi-Quellcode:

			procedure TForm1.Button3Click(Sender: TObject);

var x : Integer;

    datei : TextFile;

      pfad : String;

begin

  pfad := JvDirectoryEdit1.Directory;

  x := 1;

  AssignFile(datei, pfad +'\'+ 'datei'+ IntToStr(x) + '.txt');

    If not FileExists(pfad +'\'+ 'datei'+ IntToStr(x) + '.txt') then

      begin

       Rewrite(datei);

       CloseFile(datei);       

      end

     else

      x := x+1;

      AssignFile(datei, pfad +'\'+ 'datei'+ IntToStr(x) + '.txt');

      Rewrite(datei);

      CloseFile(datei);  

end;

Wenn ich den Button das erste Mal anklicke,wird datei1 erstellt.
Nach dem zweiten Klick,wird datei2 erstellt und das wars dann auch.
Es soll immer eine Datei mit fortlaufender Nummer erstellt werden,aber vorher zuerst prüfen,ob Datei schon vorhanden ist.
Wie muß ich meinen Quellcode abändern,das bei jedem weiteren Klick weiter gezählt wird (datei3,datei4....usw)???

Mfg

AnfängerDelphi

Nummer der Datei um 1 erhöhen

Nummer der Datei um 1 erhöhen

Forumregeln