数组问题，不知道哪里错了，不好意思只有5分了。(5分)

var
i,j:integer;
DaPRGBDataChar;
DaArImgData:Array of Array of Array of Byte;
begin
setLength(DaArImgData,0);
setLength(DaArImgData,10,10,3);
for i:=1 to 10 do
for j:=1 to 10 do
begin
DaArImgData[i,j,1]:=1;
DaArImgData[i,j,2]:=2;
DaArImgData[i,j,3]:=3;
end;
end;


谁知道上面的过程哪里错了，一运行就出内存写入的错误。

而且如果改成setLength(DaArImgData,11,11,2)居然不出错。

setLength(DaArImgData,0);
setLength(DaArImgData,10,10,3);
for i:=0 to 9 do
for j:=0 to 9 do
begin
DaArImgData[i,j,0]:=1;
DaArImgData[i,j,1]:=2;
DaArImgData[i,j,2]:=3;
end;
动态数组从0开始的。

谢谢谢谢，怪不的拉。

接受答案了.