【结贴】在窗体释放的时候，报List Index out of bound(0),请帮忙分析原因？

sharhua

procedure TFORM_SCRBB.Button1Click(Sender: TObject);
var
  lSczbylb:TWIN_SCZBCSYLB;
begin
  try
    lSczbylb:=TWIN_SCZBCSYLB.Create(Context);
    if lSczbylb.ShowModal= Controls.mrOk then
    begin
      (InfoBroker.Info as TINFO_SCRBB).setItemsSCRB;
    end;
  finally
lSczbylb.Free;
  end;
end;

amao800613

只看着几行代码能看出什么来呀？根据报错的提示应该是你在界面上用到list/TStringList或者其他相关控件，由于超过索引范围而引发的错误！在关闭的时候跟踪一下代码就知道了。

sharhua

我在界面上面没有用到list或者TStringList或者其他相关控件。
setItemsSCRB里面部分相关代码：
     lQuery.First ;
      while not lQuery.Eof do
      begin
         if lQuery.FieldByName('FCDBM').AsString='MDDC.XNFX1.N' then
           begin
             DataSetSCRBB.FieldByName('GSZL').AsFloat:=lQuery.FieldByName('fbrsj').AsFloat/100 ;
           end ;
       lQuery.Next ;
      end ;
   DataSetSCRBB.Post ;
   finally
     lQuery.Free ;
     DataSetSCRBB.EnableControls ;
   end ;

sharhua

代码调试：走到lSczbylb.Free的时候，就报这个错误。

wuchao

lSczbylb这是个什么？一个控件还是窗体？这个释放的时候下标越界了。查看它或者相关的代码

sharhua

Sczbylb是个窗体

wuchao

那就是这个窗体上有对象创建了但是没有释放

sharhua

lSczbylb.Free;  就是释放了。关键是，这个报错并不是每次都报。有时候运行就没有问题，有时候就会报这个错误。

atiger

这样的错误，一般是对象释放出问题了，楼主，可以通过屏蔽代码然后一点一点开发看看。
主要是自己创建的对象和释放的时机

sharhua

问题已解决。结贴了，谢谢大家。