uses System.Generics.Collections;

uses System.Generics.Collections;
TFoo = array of Integer;
TBar = class(TList);

Note that I have defined more than 1000 Integer constants (ActionIDs) and want to partition the whole set into groups or categories, in different fashions. I experimented a little and came up with something that compiles. It is convenient to edit the groups in the code editor where the design work happens. But it does not work at runtime. I cannot retrieve the Integer values as expected from the List. Why? Debugging is difficult. So please explain.

Code:

program IntGroupTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils,
System.Classes,
System.Generics.Collections;

type
TActionGroup = array of Integer;

TActionGroupList = class(TList)
public
constructor Create;
end;

const
Action1 = 1;
Action2 = 2;
Action3 = 3;
Action4 = 4;
Action5 = 5;
Action6 = 6;

ActionGroup1: TActionGroup = [
Action1,
Action2,
Action3
];

ActionGroup2: TActionGroup = [
Action4
];

ActionGroup3: TActionGroup = [
Action5,
Action6
];

constructor TActionGroupList.Create;
begin
inherited;
Add(ActionGroup1);
Add(ActionGroup2);
Add(ActionGroup3);
end;

var
AG: TActionGroup;
AGL: TActionGroupList;

begin
try
AGL := TActionGroupList.Create;

//this does not work.
AG := AGL.Items[0];
WriteLn(Format('1 = %d', [AG[0]]));
WriteLn(Format('2 = %d', [AG[1]]));
WriteLn(Format('3 = %d', [AG[2]]));

//this is ok.
WriteLn('');
WriteLn(Format('1 = %d', [ActionGroup1[0]]));
WriteLn(Format('2 = %d', [ActionGroup1[1]]));
WriteLn(Format('3 = %d', [ActionGroup1[2]]));

ReadLn;

except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.

Output:

1 = 1
2 = 39069312
3 = 1

1 = 1
2 = 2
3 = 3