系统显示：if DD[i]>0 then 这行代码数组越界操作，不解，求老师指点?????????
其中各类参数都已经被定义过，同时DDD和DD 经过调试发现都是有正常值的；
jk:=0;
for i=1 to barpos do
begin
if DDD[i]>0 then
begin
jk:=jk+1;
ibuy[jk]:=1;
end
if DD[i]>0 then
BEGIN
if DDD[i]=0 then
begin
jk:=jk+1;
ibuy[jk]:=2;
end
end
end