Schleife neu beginnen

[Array]

Hallo Leute!

Gibt es eine Möglichkeit eine Schleife nach dem Sie beendet ist nochmals zu starten und die die Zahl des Arrays Mannschaften[] um eins zu erhöhen?

Bitte um eure Hilfe.

LG Array

[Aphton]

Jupp, mithilfer von
Verschachtelte Schleifen
SetLength
Length

[Satty67]

Nur den Index für Manschaften oder Zahl allgemein?

Delphi-Quellcode:

for ManschaftsZahl := Zahl to Zahl+1 do
begin
  [...]
  While (Gegner[Zahl] = 1) 
        or (lv_ergebnisse.items[I].subitems[0] = Mannschaften[ManschaftsZahl]) 
  [...]
end;

Wobei ich die While-Schleife in eine Subfunction ausgelagern würde und als Parameter lv_ergebnisse.items[I], Zahl und evtl. Manschaftszahl übergeben würde.

€: Wobei ich gerade sehe, das die While-Schleife klein ist... seltsame Einrückung

[Array]

Es geht darum, dass die Mannschaften im ersten Abschnitt nicht variabel sind, und jetzt möchte ich es eben variabel haben, also nicht Mannschaften[1] sondern Mannschaften[I] nur die Schleife muss vorher fertig sein, weil das ganze soll x-mal mit Mannschaft [1] passieren und dann x-mal mit Mannschaft[2] usw.

[sx2008]

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;

[Array]

Könntest du mir deine Idee noch ein bisschen genauer erklären...bitte

[Array]

Habs geschafft...das mit der zweiten Prozedur war eine gute Idee...danke nochmals...