如何 搜索在整个应用程序中的 所有的 tadoquery?

8water 2003-10-20 01:43:40
如何 搜索在整个应用程序中的 所有的 tadoquery?请高手指点 先谢了
...全文
33 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
8water 2003-10-20
  • 打赏
  • 举报
回复
我的TADOQuery放在很多的窗体上
Delphi_Li 2003-10-20
  • 打赏
  • 举报
回复
如果你的TADOQuery都放在一个窗口中,那么这样做:
For I := 0 To Controls.Count - 1 Do
Begin
If UpperCase( Controls[ I ].ClassName = 'TADOQUERY' ) Then
Begin
做你想做的事!!!
End;
End;

如果你的TADOQuery放在很多的窗体上,那么你就需要遍历所有可以存放TADOQuery控件的窗口。注意使用Create( Nil )创建的TADOQuery是找不到的!!!

2,496

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧