Nummer der Datei um 1 erhöhen

[Perlsau]

Zitat von AnfängerDelphi:

Es soll immer eine Datei mit fortlaufender Nummer erstellt werden,aber vorher zuerst prüfen,ob Datei schon vorhanden ist.

Es gibt hier grundsätzlich zwei Vorgehensweisen:

1. Im entsprechenden Ordner die Datei mit der höchsten Nummer suchen

1a. Wie häufig wird die Datei geschrieben?
1b. Feste Anzahl vorangestellter Nullen erleichtert die Übersicht
1c. Dateiliste des Ordners holen und in Stringlist sortieren
1d. Nummerierung am Anfang des Dateinamens statt am Ende erleichtert das Extrahieren des Teilstrings, der die Nummer enthält
1e. Extrahieren des Dateinamens: DateiName := ExtractFileName(Datei); 1f. Angenommen, du verwendest 10 Zeichen für die Nummer, dann erhältst du die Nummer so: MeineNummer := StrToInt(Copy(DateiName,1,10)); Bist du nicht sicher, daß sich im kopierten Teilstring eine Zahl befindet, dann verwende SysUtils.TryStrToInt.
1g. Nummer in der Integer-Variablen MeineNummer um 1 erhöhen.
1h. Datei mit dem neuen Nummernwert schreiben.

2. Eine globale Integer- oder LongInt-Variable für die Nummerierung einsetzen

Diese Globale Variable MeineNummer setzt du anstatt des X in deiner Procedure ein und erhöhst sie bei jedem Procedure-Aufruf. Die erste Vorgehensweise ist jedoch sicherer, da du dich hierbei exakt an die physikalischen Gegebenheiten (durchnummerierte Dateien auf der Platte richtest). Sollte einmal ein Schreibvorgang schiefgehen oder abgebrochen werden, weist deine Nummerierung bei der zweiten Vorgehensweise u.U. Lücken auf.

Ansonsten: Grundlagen lernen. So wird z.B., wie bereits von Uwe erwähnt, der Befehle, x um eins zu erhöhen – kann man übrigens auch als Inc(x) schreiben – nach dem else zwar ausgeführt, wenn die Else-Bedingung zutrifft, die danach folgenden Befehle aber immer, da sie nicht mehr zum Else-Block gehören, was du jedoch eigentlich wolltest. Daher gehört alles, was nach Else ausgeführt werden soll, ebenso in Begin-End eingeschlossen wie alles, was nach dem Then ausgeführt werden soll.

[Furtbichler]

Zitat von Perlsau:

...kann man übrigens auch als Int(x) schreiben...

Ich glaube, Du meinst 'INC' statt 'INT'.

[Perlsau]

Zitat von Furtbichler:

Zitat von Perlsau:

...kann man übrigens auch als Int(x) schreiben...

Ich glaube, Du meinst 'INC' statt 'INT'.

Wo du recht hast ... mal wieder der galopierende Alzheimer ... Sagte ich nicht bereits, daß du nicht der einzige bist?
Danke, hab's korrigiert.

[AnfängerDelphi]

Hallo an alle,

erst mal vielen Dank für die vielen Informationen.
Das mit dem Lernen ist die eine Seite,das Gelernte dann noch richtig umzusetzen,die andere Seite.
Ich werde jetzt die guten Tips mal ausprobieren.

Mit einer while-Schleife habe ich es schon ausprobiert,funktioniert aber nicht so richtig.
Es soll beim anklicken des Buttons eine Datei erstellt werden,die dann um 1 erhöht wird.

Mfg

AnfängerDelphi

[Helmi]

Hallo,

das Problem an deinem Code ist die Variable x : Integer; .

Da diese zur Procedure ButtonClick gehört, also local ist, passiert folgendes:

x wird auf 1 geschrieben, "Datei1.txt" existiert nicht, also wird es erzeugt und die Procedure beendet
Somit entsteht "Datei1.txt".

Beim zweiten Klick ist x wieder 1. Es wird geprüft, ob "Datei1.txt" existiert. Da es nun diese aber gibt
wird die Zeile x := x+1; "aktiv", dadurch wird x = 2 und die Datei "Datei2.txt" erstellt.
Und das wars.

Du musst x in den Private-Abschnitt packen und x einmal auf 1 setzen, z. B. im OnCreate der Form.
Das setzen auf 1 im Button muss dann raus (das x in der Variablendefinition im Button ebenfalls)

[EWeiss]

Zitat:

Da diese zur Procedure ButtonClick gehört, also local ist

??

Ist das nicht eher umgekehrt? public = global ?
Sie gehört zur Procedure ButtonClick aber privat.
Public wäre doch wohl wenn Sie für alle Proceduren und Functionen der aktuellen
Unit deklariert wäre.

Privat hebt sie sich immer wieder auf und zwar mit jeden Aufruf von ButtonClick.
Davon ab sollte man Aussagefähige Namen verwenden anstelle von x.. DateiCounter.
x Public zu deklarieren wäre eine schlechte Idee da man privat x sehr häufig verwendet.

Möglich das ich jetzt aber auch was verdrehe.

gruss

[Helmi]

Das local war auf die Procedure ButtonClick bezogen.
Weiss grad ned wie man das in der Delphi-Welt nennt

(bin momentan Siemens SPS-versaut und da heissen die Dinger Lokal-Variablen)

[Perlsau]

Zitat von EWeiss:

Sie gehört zur Procedure ButtonClick aber privat.

Nein. Variablen innerhalb von Prozeduren und Funktionen nennt man lokale Variablen, Variablen außerhalb derselben globale. Private und Public legen lediglich fest, ob die global definierten Bezeichner nur für die jeweilige Unit oder eben auch für andere Units, welche die aktuelle Unit eingebunden haben, sichtbar sind.