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

[Klaus01]

Hi J!P,

hat etwas länger gedauert...

Grüße
Klaus

Delphi-Quellcode:

// befüllen des ListView
procedure TForm1.Button1Click(Sender: TObject);
var
  item:TListItem;
  i: Byte;
begin
  ListView1.Columns[0].Caption:='Läufer';
  ListView1.Columns[1].Caption:='Runde';

  for i:=0 to 5 do
    begin
      item := ListView1.Items.Add;
      item.Caption:='Alice'+IntTostr(i);;
      item.SubItems.Add(intToStr(i));
    end;
  ListView1.Items[0].SubItems[0]:='123';

end;

//auslesen des ListView
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;
    //Anzeigen des ListView Inhalt in einem TMemo
    Memo1.lines.Assign(sl);
  finally
    sl.free;
  end;
end;

end.