delphi 运行出现错误

2010-03-17 09:49:19 133 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

5分钟搞懂知识抽取：如何把非结构化数据变成知识图谱的宝藏？本文通过一个电商评论分析实战案例，详细解析了如何利用spaCy、Neo4j等工具，将非结构化文本数据转化为结构化知识图谱的完整流程。文章重点阐述了知识抽取的核心步骤，包括命名实体识别、关系抽取以及知识存储与查询，帮助读者快速掌握将数据转化为知识宝藏的关键技术。阅读详情

如题运行点击某个按钮之后出现错误
raise execption EInvalidGridOperation with message'Grid index out of range'

不知道是什么问题？看意思好像是Grid超出界限了？
要怎么解决

还有一个问题是关于DBGrid的
我把从数据库里面查询出来的数据放到DBGrid 滚动滚轮可是数据到了显示的最下面就不继续下去了
实际上还有好多数据在下面而且光标也是停留在上面我刚一开始点中的那一行，并没有随着我的滚轮而相应的
往下走不知道高手这个是属性里面设置的嘛？

...全文

汇川伺服Modbus-RTU通讯实战：从帧结构解析到西门子PLC配置本文详细解析了汇川伺服与西门子PLC通过Modbus-RTU协议进行通讯的实战步骤，包括帧结构解析、硬件连接、参数设置及PLC程序配置。通过具体案例和常见问题排查指南，帮助工程师快速掌握工业自动化中的通讯技术，提升设备调试效率。阅读详情

scorpio215

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

zhangjing1979666 2010-03-18

打赏
举报

1、按钮那个错误，应该是越界了，例如 DBGrid1.Columns.Items[0] 表示第一列
DBGrid1.Columns.Items[1] 表示第二列

2、Delphi 的 DBGrid 组件，确实很垃圾，一般都用三方的组件，目前常用的有(DBGridEh、cxGrid)
如果你想实现 DBGrid 鼠标滚轮的话，给你代码，简单看下：



procedure TfrmMain.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);

begin

  if Msg.message = WM_MouseWheel then

  begin

    if Msg.wParam > 0 then

     begin

       if DBGrid1.Focused then

         SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0);

     end

    else

     begin

       if DBGrid1.Focused then

         SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);

     end;

    Handled:= True;

  end;

end;



procedure TfrmMain.FormCreate(Sender: TObject);

begin

  Application.OnMessage := OnMouseWheel; // 窗体Create 时，截获鼠标滚动事件

end;