Einzelnen Beitrag anzeigen

AnfängerDelphi

Registriert seit: 20. Mai 2010
25 Beiträge
 
#17

AW: Nummer der Datei um 1 erhöhen

  Alt 26. Jun 2013, 20:28
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
  Mit Zitat antworten Zitat