Fehler im for loop

[Gunny]

Mit dem Array funktionierts nach kurzem Umbau.

Delphi-Quellcode:

procedure TForm1.Round_1_CreateClick(Sender: TObject);
var
  i, j : Integer;
  p : array[1..64] of string; //steht eigentlich in der globalen var 
begin
  num_players := Form1.Playerlist.Items.Count; //Items.Count fängt bei 1 an
  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;
end;

Ich fange nicht bei p0 an, damit ich später nicht durcheinander komme, da p1 = Player 1.

Vielen Dank.