Thema: Delphi Schleife neu beginnen

Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Schleife neu beginnen

  Alt 30. Apr 2011, 18:49
Tipp: du brauchst eine Prozedur, die auf einen Rutsch einen weiteres Spielergebnis
an die Listview hängt:
Delphi-Quellcode:
procedure TForm1.AddSpielErgebnis(const heim, gegner:string; heimtore,gegnertore:integer);
var
  li : TListItem;
begin
  li := lv_ergebnisse.Items.add;

  // Spielnummer wird automatisch ermittelt, könnte aber auch durch einen Parameter
  // übergeben werden
  li.Caption := IntToStr(lv_ergebnisse.Items.Count); // Spielnummer
  li.SubItems.Add(heim);
  li.SubItems.Add(gegner);
  li.SubItems.Add(IntToStr(heimtore));
  li.SubItems.Add(IntToStr(gegnertore));
end;
  Mit Zitat antworten Zitat