记录类型的二维数组如何 写成常量 初始化 ( 积分: 100 )

想把以下内容转为常量
TMenuItem = Record //菜单结构
ID: integer;
Caption: string;
end;
TMenuItemList = array of TMenuItem;

TMenuBig = Record
MenuCaption: string;
MenuItems: TMenuItemList;
end;

TMenuList = array of TMenuBig;
SetLength(FMenuList,5);
FMenuList是 TMenuList 类型的

FMenuList[0].MenuCaption := '菜单标题';
setLength(FMenuList[0].MenuItems,2);
FMenuList[0].MenuItems[0].ID := 100;
FMenuList[0].MenuItems[0].Caption := '菜单';
FMenuList[0].MenuItems[1].ID := 101;
FMenuList[0].MenuItems[1].Caption := '菜单';

FMenuList[1].MenuCaption := '菜单标题';
setLength(FMenuList[1].MenuItems,5);
FMenuList[1].MenuItems[0].ID := 200;
FMenuList[1].MenuItems[0].Caption := '菜单';
FMenuList[1].MenuItems[1].ID := 201;
FMenuList[1].MenuItems[1].Caption := '菜单';
FMenuList[1].MenuItems[2].ID := 202;
FMenuList[1].MenuItems[2].Caption := '菜单';
FMenuList[1].MenuItems[3].ID := 203;
FMenuList[1].MenuItems[3].Caption := '菜单';
FMenuList[1].MenuItems[4].ID := 204;
FMenuList[1].MenuItems[4].Caption := '菜单';
。。。

不如改成多个一维数组

常量? 直接加一个TMainMenu控件就行了。
也可以定义成 const 或 资源，再循环加入。

接受答案了.