Nummer der Datei um 1 erhöhen

[AnfängerDelphi]

Hallo Volker,

Deine Aussagen sind natürlich korrekt.
Fehler von mir,ich meinte damit die nachfolgende Prozedur,bei der ich eine Variable global definiert habe,Sorry.
Vorher wurde nur der Letzte Wert aus meinem ListView in die Datei geschrieben,obwohl mehrere Einträge vorhanden waren.
Jetzt werden alle ListView-Einträge in die Datei übernommen.
Ist doch eine recht einfache Lösung,oder gibt es noch einen anderen Weg???

Delphi-Quellcode:

var vListe : Smallint=1;
    

procedure TForm1.Button5Click(Sender: TObject);
var i : Smallint;
    ze,sp1,sp2,sp3 : String;

begin  // dies ist nur ein Auszug von dieser Prozedur
  
  for i := 0 to ListView1.Items.Count -1 do
     begin
     ze := ListView1.Items[i].Caption;
     sp1 := ListView1.Items[i].SubItems[0]
     sp2 := ListView1.Items[i].SubItems[1]
     sp3 := ListView1.Items[i].SubItems[2]
     inc(vListe);
     end;

end;

Mfg

AnfängerDelphi