Thema: FreePascal Fehler im for loop

Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#5

AW: Fehler im for loop

  Alt 18. Dez 2012, 19:06
Hallo,

du brauchst keine zusätzliche Variable um eins abzuziehen

anstatt:
Delphi-Quellcode:
  for i := 1 to num_players do
       begin;
            j := i-1;
            p[i] := Form1.Playerlist.Items.Strings[j]; //Items.Strings fängt bei 0 an, daher j := i-1
       end;
geht das: (j brauchst nicht mehr)
Delphi-Quellcode:
  for i := 1 to num_players do
       begin;
            p[i] := Form1.Playerlist.Items.Strings[i - 1];
       end;
oder das:
Delphi-Quellcode:
  for i := 1 to num_players do
       begin;
            p[i] := Form1.Playerlist.Items.Strings[Pred(i)];
       end;
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat