Thema
:
Delphi
Rundenzähler für mehrere Läufer (Delphi 7 Prof)
Einzelnen Beitrag anzeigen
Klaus01
Registriert seit: 30. Nov 2005
Ort: München
5.757 Beiträge
Delphi 10.4 Sydney
#
21
AW: Rundenzähler für mehrere Läufer (Delphi 7 Prof)
7. Sep 2010, 16:28
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Button2Click(Sender: TObject);
var
i,j: Byte;
sl : TStringList;
s : AnsiString;
begin
sl := TStringList.Create;
try
for
i:= 0
to
ListView1.Items.count -1
do
begin
s:= ListView1.Items[i].Caption;
for
j:= 0
to
ListView1.Items[i].SubItems.Count -1
do
s:= s+'
;
'+ ListView1.Items[i].SubItems[j];
sl.add(s);
end
;
//Speichern des ListView Inhalt
sl.saveToFile('
.\Liste.csv
');
finally
sl.free;
end
;
end
;
Klaus
Zitat
Klaus01
Öffentliches Profil ansehen
Mehr Beiträge von Klaus01 finden