listViewFlowInfo 选择问题 大家帮忙看下

Question

begin if listViewFlowInfo.Items[i].Checked then
 begin
  declBase:= getLotRemoteDeclInfo(declDate,declRegNo);
  if declBase <> nil then
  begin
    declBase.declRegNo:= declRegNo;       for i:=0 to listViewFlowInfo.Items.Count - 1 do
         begin
          if dmOracle.saveRemoteToLocalDeclInfos(declBase) then
          begin
            if insertFlow(declBase) then
              begin
                labHelp.Font.Color:=clGreen;
                labHelp.Caption:=操作成功!;
                viewFlowInfo(declBase.barCode);
              end;
          end;
        end;
    end;
 end
  else
  labHelp.Caption:= '请选择需要流入的单证!';
end;
我点按钮 无论钩选或不钩选 listViewFlowInfo 前的checkbox 都会报错误 错误跳到系统包 comctrl 下的 function TListItem.GetChecked: Boolean; 方法上.如下图

Answer 1

跟一下吧,你的信息不足,可能是Items[i]不存在,确定i的范围

Answer 2

这个是 按钮的 Click 事件啊. 没有其他操作了..你需要知道那些信息能查出问题呢?是不是 我循环 的位置放错了??

Answer 3

不管你什么事件,总要保证Items[i]存在吧,也即是i没有超出索引,能想到的就是这了,别处的错误,自己跟踪吧