Schleife für aufsteigende Arraynamen

[xxsasch4xx]

ich würde gerne 20 arrays die unterschiedliche zahlen am ende haben werte von true zuweissen

die arrays sind global so deklariert:

Delphi-Quellcode:

name1 :array [1..20] of boolean;
name2 :array [1..20] of boolean;
...
bis
name20:array[1..20] of boolean;
 // kann man die deklaration von 20 arrays auf einmal auch optimieren?

1. Möglichkeit:

Delphi-Quellcode:

var i:integer;
begin
  for i :=1 to 20 do
  'name'+inttostr(i)[i]:=true;

2. Möglichkeit:

Delphi-Quellcode:

var i:integer;
begin
  for i :=1 to 20 do
  TArray(form1.FindComponent('name'+IntToStr(i)[i])):=True;
//so ging das immer bei image bildern aber hier wird es wohl nicht funktionieren oder?

er soll also sozusagen von array1[1] bis array20[20]
auf einen schlag alles true setzen

[patti]

Warum nimmst du keine zwei-dimensionalen Arrays?

ar : array[1..20] of array[1..20] of boolean;

[xxsasch4xx]

also ich meine es so, dass man die zahl von dem namen am ende vom array auch mit verändert..

name1[1]

[rollstuhlfahrer]

so einfach geht das nicht. Du kannst keine Variable per Name aufrufen. Du kannst aber aus deinen 20 Variablen des gleichen Typs ein einziges Array machen (Name: array[1..20, 1..20] of Boolean) und dann kannst du dieses Array durchlaufen. Alternativ kannst du auch per FillChar(@Name, SizeOf(Name), #1) allen Teilen TRUE zuweisen.

Bernhard

[patti]

Zitat von xxsasch4xx:

also ich meine es so, dass man die zahl von dem namen am ende vom array auch mit verändert..

name1[1]

Genau das lässt sich eben mit zwei-dimensionalen Arrays erledigen:

Delphi-Quellcode:

for x := 1 to 20 do
  for y := 1 to 20 do
    ar[x,y] := true;