Einzelnen Beitrag anzeigen

xxsasch4xx

Registriert seit: 1. Mär 2010
210 Beiträge
 
#1

Schleife für aufsteigende Arraynamen

  Alt 19. Feb 2011, 17:28
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

Geändert von xxsasch4xx (19. Feb 2011 um 17:36 Uhr)
  Mit Zitat antworten Zitat