我这样定义数组那里错了？？？ ( 积分: 100 )

type
RDownTypeInfo = record
DiamondsInfo:array[1..4,1..4] of Integer;
end;


//下坠体编号格式
const
OneType:array[0..3] of RDownTypeInfo = (0,1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0);

你需要定义成如下形式(参考一下"record constrants"的帮助):
const
OneType:array[0..3] of RDownTypeInfo = (
(DiamondsInfo(0,1,1,0),(0,0,1,0),(0,0,1,0),(0,0,0,0))),
(DiamondsInfo(0,1,1,1),(0,1,0,0),(0,0,0,0),(0,0,0,0))),
(DiamondsInfo(0,0,1,0),(0,0,1,0),(0,1,1,0),(0,0,0,0))),
(DiamondsInfo(1,1,1,0),(0,0,1,0),(0,0,0,0),(0,0,0,0))));

接受答案了.