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