为什么出现list index out of brounts(-1)？

[shirong]

一个奇怪的问题？
我发现我的delphi3。0在运行时如果执行下面一段代码打开一个文件
gridsj是一个stringgrid
procedure TForm1.btreadClick(Sender: TObject);
var
openfilename:string;
rdstr:string;
f :textfile;
i,j,temp:integer;
begin
if opendialog.Execute then
begin
openfilename:=opendialog.FileName;
if fileexists(openfilename) then
begin {读取预处理}
assignfile(f,openfilename);
reset(f);
{以下为读取段}
readln(f,rdstr);
readln(f,zbgs,qsdx,qsdy,qsdfwjjd,qsdfwjhd);
edbt.Text:=rdstr;
edqsdhzbx.Text:=formatfloat('0.0000',qsdx);
edqsdzzby.Text:=formatfloat('0.0000',qsdy);
edqsdfwjjd.Text:=formatfloat('0.0000',qsdfwjjd);
edqsdfwjhd.Text:=formatfloat('0.000000',qsdfwjhd);
for i:=1 to zbgs do
begin
readln(f,zbsj[1,i],zbsj[2,i]);
end;
closefile(f);
temp:=gridsj.RowCount-1;
gridsj.RowCount:=zbgs+1;
for i:=temp+1 to zbgs do gridsj.Cells[0,i]:='J'+inttostr(i);
for i:=1 to 2 do
for j:=1 to zbgs do gridsj.Cells[i,j]:=formatfloat('0.0000',zbsj[i,j]);
end
else
Application.MessageBox('文件找不到！','错误！',mb_ok+mb_defbutton1)
end;
end;

然后关闭返回编辑时，如果不在代码窗口中进行改动，则再次运行时就报
list index out of brounts(-1)
invalid pointer operation
如果退出delphi就报
exception einvalidpointer in module vcl30.dpl at 000038ee
如果不退出就无法再运行该程序。
用看进程的工具可以看到这个程序仍然驻留在内存。请问这是怎么回事？

[shirong]

没人回答吗？是不是还要加分呀？
又：即使不打开文件，只是调用一下opendialog 也会出现这种情况

[shirong]

这个问题我发现是我的3。0有问题，只要调用DIALOG就会出现，谁有办法解决？

[Kingron]

不可能3。0的OpenDialog有问题，这么多的人用了3。0，没有听说个这么回事！一定是你的程序有问题！你单步运行看看你的程序在什么地方出现错误！很有可能是你在操作Grid时有错误。

[YangYun]

从错误提示“list index out of brounts(-1) invalid pointer operation”，我怀疑是对stringGrid变量没有进行初始化，操作完后没有进行释放引起的。即：gridsj:=Tstringgrid.create(sender);Gridsj.free;把这些加进去试试，另外，还要注意越界问题。

[南飞]

以前我也有碰到这问题，经仔细查看才知是数组越界。

[wzs]

应是stringgrid的下标越界,用F8来调试它的值

[BCB]

是的，下标越界，就会出现这样的提示

[qkl]

应该是你的其它程序部分有问题吧？
你做一个简单的程序，只简单的调用Topendialog.execute看它是否出错，以验证delphi3下Topendialog是否有问题。

[shirong]

呵呵，诸位，对不起了，确实是我的3。0有问题，我做了一个只调用opendialog.execute的窗体一样是用两次就出错，我只好把分给自己了！倒霉，又要装那个又笨有好死机的5。0了！

[wangxd1976]

gz

[shirong]

因为我初学时用的是5。0，后来嫌老是没有响应就删掉装了3。0，所以，闹故障了。。。。

[shirong]

闲着也是闲着。有分不给浪费了！，每人都给吧

[Kingron]

//faint
浪费了！：（