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