out of memory求助，急！

[u014548229]

for i:=0 to 10 do
for j:=0 to 10 do
begin
tao1[0][i]:=inttao;
tao2[i][j]:=inttao;
end;

partsum:=0;
for i:=0 to 10 do
begin
partsum:=partsum+exp(alph*ln(tao1[0][i]));
end;
for i := 0 to 10 do
begin
pper[i]:=exp(alph*ln(tao1[0][i]))/partsum;
memo1.Lines.Add(floattostr(pper[i]));
end;

报错out of memory,怎么解决！？

[lght]

给一段这么简单的代码，我只能说两个字：调试

[u014548229]

代码就是上面，我会小白，楼上能指导清楚一点吗，怎么调试？

[hongss]

你的参数定义呢，发多点代码吧

[金卯刀]

要学会问问题。可能你连出错的代码行都不知道。至少得说明出错代码行。贴出的代码，至少是一个完整procedure或function。

[lght]

引用 2 楼 u014548229 的回复:

代码就是上面，我会小白，楼上能指导清楚一点吗，怎么调试？

F5断点，F9运行，F8单步，F7进入，自己看delphi IDE的Run菜单

[sololie]

某个数组越界了，下断跟踪吧，靠眼来查费力费时。