Rundenzähler für mehrere Läufer (Delphi 7 Prof)

[Klaus01]

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;