Fehler im for loop

[Gunny]

Hallo,
ich bin neu hier und bin mir gerade nicht sicher, ob das Thema hierhin gehört.
Ich programmiere in Lazarus v1.0.4

Ich habe eine Listbox mit bis zu 64 Einträgen und für die Verarbeitung möchte ich jetzt jedem Indexplatz einer Variablen zuweisen.

Delphi-Quellcode:

procedure TForm1.Round_1_CreateClick(Sender: TObject);
var
  p1, p2, p3, ......, p64 : String;
  i, j, num_players : Integer;
begin
  num_players := Form1.Playerlist.Items.Count;
  for i := 1 to num_players do
      begin;
           j := i-1; 
           p[i] := Form1.Playerlist.Items.Strings[j];
      end;
end;

Beim kompilieren wird allerdings nicht die p*-Variable erkannt (Error: Identifier not found "p")

Was mache ich falsch?
Danke für die Hilfe.

[DeddyH]

Mir scheint, Du suchst ein Array.

Delphi-Quellcode:

var
  p: array[1..64] of String;

[Klaus01]

und sollte die Schleife nicht von 0 bis count -1 laufen?

Delphi-Quellcode:

begin
  num_players := Form1.Playerlist.Items.Count;
  for i := 0 to num_players -1 do
      begin;
           j := i-1;
           p[i] := Form1.Playerlist.Items.Strings[j];
      end;
end;

oder verhält sich lazarus bei Listen da anders?

Das Array sollte dann auch bei 0 starten.
Grüße
Klaus

[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.

[Helmi]

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;

[lbccaleb]

Oder das

Delphi-Quellcode:

  for i := 1 to num_players do
       begin;
            p[i] := Form1.Playerlist.Items.Strings[Dec(i)];
       end;

[uligerhardt]

Zitat von lbccaleb:

Oder das

Delphi-Quellcode:

  for i := 1 to num_players do
       begin;
            p[i] := Form1.Playerlist.Items.Strings[Dec(i)];
       end;

Pred(i)

[Helmi]

Zitat von lbccaleb:

Oder das

Delphi-Quellcode:

  for i := 1 to num_players do
       begin;
            p[i] := Form1.Playerlist.Items.Strings[Dec(i)];
       end;

Dec ist eine Procedure und keine Function. Deswegen Pred

[jfheins]

Oder gleich das Array bei 0 anfangen und dann beides mit dem gleichen Index ansprechen