Und warum dann kein Array der Form
Delphi-Quellcode:
type
TMyArray = array[0..29] of Boolean;
bzw, falls Du benannte Indizes benötigst:
Delphi-Quellcode:
type
TMyElement = (meOne, meTwo, meThree);
TMyArray = array[TMyElement] of Boolean;
und eine Verwendung der Art (2. Variante)
Delphi-Quellcode:
var
myVar: TMyArray;
i: TMyElement;
begin
myVar[meOne]:= GetValue(meOne);
myVar[meTwo]:= myVar[meOne] and GetValue(meTwo);
myVar[meThread]:= False;
for i:= Low(i) to High(i) do
begin
if i=meTwo then
write('Hey, it''s just the second value: ');
Writeln(arVar[i]);
end;