delphi离奇报错-CSDN论坛

⋅如何计算相同色块 ⋅delphi离奇报错 ⋅用户管理的一点问题 更多帖子 关注空间博客 李冬宝 本版专家分：30 结帖率 100%:   qry.Close;//此处不报错
    qry.SQL.Text:= 'xxx';
  qry.ExecSQL;

  if Application.MessageBox('xxx','',MB_YESNO) = IDYES then
  begin
    qry.Close;//此处报错
    qry.SQL.Text:= 'xxx';
    qry.ExecSQL;
  end;

跟踪了一下，发现在Application.MessageBox 时，qry被清掉了。。。
这些代码以前都是正常运行的，请教一下，是何种问题？

0 2012-02-23 17:01:04

回复数 21 只看楼主引用举报楼主

⋅ecache缓存比直接用反射更慢，求解？ ⋅一个有意思的问题：oracle中update单个列和多个列性能对比 ⋅动态代理怎么在调用前进行参数转换？ 更多帖子 关注空间博客 我看见佛 本版专家分：16106 红花 2012年4月 Delphi大版内专家分月排行榜第一 2012年3月 Delphi大版内专家分月排行榜第一: qry.Close;//此处报错
这个是没有问题的啊，把CLOSE放到前面去看看，，应该是哪里代码出了问题，

0 2012-02-23 17:06:53

只看TA 引用举报 #1 得分 0

⋅ecache缓存比直接用反射更慢，求解？ ⋅一个有意思的问题：oracle中update单个列和多个列性能对比 ⋅动态代理怎么在调用前进行参数转换？ 更多帖子 关注空间博客 我看见佛 本版专家分：16106 红花 2012年4月 Delphi大版内专家分月排行榜第一 2012年3月 Delphi大版内专家分月排行榜第一

qry.Close;//此处不报错

  qry.SQL.Text:= 'xxx';

  qry.ExecSQL;



  if Application.MessageBox('xxx','',MB_YESNO) = IDYES then

  begin

  qry.Close;//此处报错

  qry.SQL.Text:= 'xxx';

  qry.ExecSQL;

  end;

这两个代码是相连的？还是不是完整代码？

0 2012-02-23 17:08:08

只看TA 引用举报 #2 得分 11

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一: 在代码里面铺天盖地的搜索qry，
目的是检测是否有其他地方也在用这个qry，然后不小心清掉了SQL.Text。
神秘的消失了，一定是有原因的。。。嘿嘿

0 2012-02-23 17:18:18

只看TA 引用举报 #3 得分 11

⋅ecache缓存比直接用反射更慢，求解？ ⋅一个有意思的问题：oracle中update单个列和多个列性能对比 ⋅动态代理怎么在调用前进行参数转换？ 更多帖子 关注空间博客 我看见佛 本版专家分：16106 红花 2012年4月 Delphi大版内专家分月排行榜第一 2012年3月 Delphi大版内专家分月排行榜第一: 或许是AfterEdit那类代码导致SQL语句消失的

0 2012-02-23 17:20:14

只看TA 引用举报 #4 得分 0

⋅春节恭贺贴（三）。。。。。。。。。。。 ⋅春节恭贺贴（二）。。。。。。。。。。。 ⋅春节恭贺贴（一）。。。。。。。。。。。 更多帖子 关注空间博客 babydog01 本版专家分：13953: 如果只是执行SQL语句，只要这样做：
qry.sql.clear;
qry.sql.text:='';
qry.execsql;

如果打开是表
qry.sql.close;
qry.sql.clear;
qry.sql.text:='';
qry.open;

0 2012-02-23 17:27:35

只看TA 引用举报 #5 得分 11

⋅为什么我的头像hold不住 ⋅发贴一问并庆祝戴上一个星罩：webbrowser里activex输入框赋值 ⋅csdn上罢工一周，支持Oversense (步步文)讨回公道！！！ 更多帖子 关注空间博客 erhan 本版专家分：13636 红花 2012年1月 Delphi大版内专家分月排行榜第一 黄花 2012年2月 Delphi大版内专家分月排行榜第二 2006年8月 Delphi大版内专家分月排行榜第二 蓝花 2006年7月 Delphi大版内专家分月排行榜第三: 没有结果集返回的sql，不用close

0 2012-02-23 18:34:58

只看TA 引用举报 #6 得分 11

⋅ecache缓存比直接用反射更慢，求解？ ⋅一个有意思的问题：oracle中update单个列和多个列性能对比 ⋅动态代理怎么在调用前进行参数转换？ 更多帖子 关注空间博客 我看见佛 本版专家分：16106 红花 2012年4月 Delphi大版内专家分月排行榜第一 2012年3月 Delphi大版内专家分月排行榜第一: qry.Close;这个语句应该是没有问题的，一个QRY是可以调用多次CLOSE的

不过qry.ExecSQL;确实没执行打开数据集，所以执行qry.ExecSQL;
状态应该还是CLOSE的

1 2012-02-23 19:50:42

只看TA 引用举报 #7 得分 0

superlixiao78 本版专家分：373: 加上一个if qry.active then qry.close;呢

0 2012-02-23 21:01:28

只看TA 引用举报 #8 得分 11

⋅delphixe2 firemonkey ios开发 ⋅怎么隐藏dll ⋅求验证码识别相关资料，或识别高手合作 更多帖子 关注空间博客 yzzd 本版专家分：2267: 看不出为什么错，应该有其它原因。

0 2012-02-24 00:58:57

只看TA 引用举报 #9 得分 11

⋅如何计算相同色块 ⋅delphi离奇报错 ⋅用户管理的一点问题 更多帖子 关注空间博客 李冬宝 本版专家分：30: 事实上在application.messagebox后，调用任何控件都报错！
但是，在qry前加上 form.qry.close; 就不报错了。
怀疑delphi7或者第三方控件有问题。

0 2012-02-24 01:54:42

只看TA 引用举报 #10 得分 0

⋅更改组策略是不是相当于更改注册表 ⋅2013了，兄弟伙新年快乐，来年财源滚滚哈，标题要长长长长长长长长长长长 ⋅无聊的时候吼一声 更多帖子 关注空间博客 kaikai_kk 本版专家分：41830 红花 2012年10月 Delphi大版内专家分月排行榜第一 2012年9月 Delphi大版内专家分月排行榜第一 2012年8月 Delphi大版内专家分月排行榜第一 2012年7月 Delphi大版内专家分月排行榜第一 2012年6月 Delphi大版内专家分月排行榜第一 2012年5月 Delphi大版内专家分月排行榜第一 2011年12月 Delphi大版内专家分月排行榜第一 黄花 2012年4月 Delphi大版内专家分月排行榜第二 2012年3月 Delphi大版内专家分月排行榜第二 2012年1月 Delphi大版内专家分月排行榜第二 2011年11月 Delphi大版内专家分月排行榜第二 蓝花 2012年2月 Delphi大版内专家分月排行榜第三: 是你代码有问题，不是D有bug

这段代码看不出错误,是不是还有其它的代码...

0 2012-02-24 08:48:01

只看TA 引用举报 #11 得分 11

⋅为什么一些软件是控制台程序 ⋅Delphi XE register 调用约定的参数执行顺序 ⋅Delphi编程技巧总汇--------[持续更新] 更多帖子 关注空间博客 s11ss 本版专家分：15859 红花 2014年10月 Delphi大版内专家分月排行榜第一 2012年12月 Delphi大版内专家分月排行榜第一 黄花 2012年7月 Delphi大版内专家分月排行榜第二 蓝花 2013年8月 Delphi大版内专家分月排行榜第三 2012年8月 Delphi大版内专家分月排行榜第三 2012年6月 Delphi大版内专家分月排行榜第三: 是application.messagebox报错吧？是被with语句包起来的吧？
引用 10 楼 tangsong78 的回复:
事实上在application.messagebox后，调用任何控件都报错！
但是，在qry前加上 form.qry.close; 就不报错了。
怀疑delphi7或者第三方控件有问题。

0 2012-02-24 09:18:46

只看TA 引用举报 #12 得分 11

⋅ecache缓存比直接用反射更慢，求解？ ⋅一个有意思的问题：oracle中update单个列和多个列性能对比 ⋅动态代理怎么在调用前进行参数转换？ 更多帖子 关注空间博客 我看见佛 本版专家分：16106 红花 2012年4月 Delphi大版内专家分月排行榜第一 2012年3月 Delphi大版内专家分月排行榜第一: 引用 12 楼 s11ss 的回复:
是application.messagebox报错吧？是被with语句包起来的吧？

引用 10 楼 tangsong78 的回复:
事实上在application.messagebox后，调用任何控件都报错！
但是，在qry前加上 form.qry.close; 就不报错了。
怀疑delphi7或者第三方控件有问题。
这确实是不注意最容易引起错误的地方

0 2012-02-24 09:22:17

只看TA 引用举报 #13 得分 0

⋅如何计算相同色块 ⋅delphi离奇报错 ⋅用户管理的一点问题 更多帖子 关注空间博客 李冬宝 本版专家分：30

引用 12 楼 s11ss 的回复:

是application.messagebox报错吧？是被with语句包起来的吧？

引用 10 楼 tangsong78 的回复:
事实上在application.messagebox后，调用任何控件都报错！
但是，在qry前加上 form.qry.close; 就不报错了。
怀疑delphi7或者第三方控件有问题。

没有包什么代码，就是简单的一个click事件：



procedure TForm.btnClick(Sender: TObject);

begin

  inherited;

if Application.MessageBox(PChar('  xxxx  '),'',MB_YESNO) = IDYES then

  begin

    qry.Close;

    qry.SQL.Text:= 'xxx';

    qry.ExecSQL;

  end;

end;

我新建一个工程，模仿这些写法，不会报错。。。

0 2012-02-24 16:51:15

只看TA 引用举报 #14 得分 0

⋅为什么一些软件是控制台程序 ⋅Delphi XE register 调用约定的参数执行顺序 ⋅Delphi编程技巧总汇--------[持续更新] 更多帖子 关注空间博客 s11ss 本版专家分：15859 红花 2014年10月 Delphi大版内专家分月排行榜第一 2012年12月 Delphi大版内专家分月排行榜第一 黄花 2012年7月 Delphi大版内专家分月排行榜第二 蓝花 2013年8月 Delphi大版内专家分月排行榜第三 2012年8月 Delphi大版内专家分月排行榜第三 2012年6月 Delphi大版内专家分月排行榜第三: 引用 14 楼 tangsong78 的回复:
引用 12 楼 s11ss 的回复:
是application.messagebox报错吧？是被with语句包起来的吧？

引用 10 楼 tangsong78 的回复:
事实上在application.messagebox后，调用任何控件都报错！
但是，在qry前加上 form.qry.close; 就不报错了。
怀疑delphi7或者第三方控件有问题。

没有包什么代码，就……
问题描述得不完整啊，是不是还有时钟、线程什么的操作了那个qry?

0 2012-02-24 16:56:40

只看TA 引用举报 #15 得分 12

⋅ecache缓存比直接用反射更慢，求解？ ⋅一个有意思的问题：oracle中update单个列和多个列性能对比 ⋅动态代理怎么在调用前进行参数转换？ 更多帖子 关注空间博客 我看见佛 本版专家分：16106 红花 2012年4月 Delphi大版内专家分月排行榜第一 2012年3月 Delphi大版内专家分月排行榜第一: F7一点点看看

0 2012-02-24 17:00:27

只看TA 引用举报 #16 得分 0

⋅如何计算相同色块 ⋅delphi离奇报错 ⋅用户管理的一点问题 更多帖子 关注空间博客 李冬宝 本版专家分：30: 现在就是不清楚，为什么application.messagebox时，使用qry不能访问控件，而要用form2.qry才能访问？是继承有问题吗？

谁能给点debug的头绪？？

0 2012-02-24 17:10:10

只看TA 引用举报 #17 得分 0

⋅如何计算相同色块 ⋅delphi离奇报错 ⋅用户管理的一点问题 更多帖子 关注空间博客 李冬宝 本版专家分：30: 汇报一点情况。
自己建的工程，在application.messagebox 时f7，直接跳确认框。
出错的老工程，在application.messagebox 时f7，跳到vcl\forms.pas，可以跟踪。

这是啥原因？？

0 2012-02-24 17:17:27

只看TA 引用举报 #18 得分 0

⋅D2006，使用indy发https请求，并支持TLS1.2 ，卡壳了。。。。。 ⋅无法下载图片 ⋅关于TZCompressionStream的奇怪问题 更多帖子 关注空间博客 lzg827 本版专家分：6086 红花 2012年2月 Delphi大版内专家分月排行榜第一: 一点点的删除代码试试，找到出问题的那一行。
“跳到vcl\forms.pas”帮助不大。

0 2012-02-24 17:19:47

只看TA 引用举报 #19 得分 0

⋅如何计算相同色块 ⋅delphi离奇报错 ⋅用户管理的一点问题 更多帖子 关注空间博客 李冬宝 本版专家分：30: 在工程里面新建一个页面，只放一个BUTTON和一个ADOQUERY，同样有这个错误。
而在新工程中同样的页面，是没有错误的。

0 2012-02-24 18:15:23

只看TA 引用举报 #20 得分 0

李冬宝 本版专家分：30: 问题解决了，是工程指定的search path不对。
谢谢各位参与。

0 2012-02-24 20:22:41

只看TA 引用举报 #21 得分 0

delphi离奇报错 [问题点数：100分，结帖人tangsong78]