D del520 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #1 奇怪：在主菜单的click 的事件中使用exit中止过程编译时 报：[Error] Unit1.pas(606): Statement expected, but expression of type 'TMenuItem' found(20分)<br />为什么？
奇怪：在主菜单的click 的事件中使用exit中止过程编译时 报：[Error] Unit1.pas(606): Statement expected, but expression of type 'TMenuItem' found(20分)<br />为什么？
D del520 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #4 procedure TMain.N33Click(Sender: TObject); var bf,bo:boolean; begin bf:=FileExists(cdir+'/otherField.ini'); Bo:=FileExists(cdir+'/otherTemp.ini'); if Bf and Bo then exit; end; 就这样简单 编译就通不过。。
procedure TMain.N33Click(Sender: TObject); var bf,bo:boolean; begin bf:=FileExists(cdir+'/otherField.ini'); Bo:=FileExists(cdir+'/otherTemp.ini'); if Bf and Bo then exit; end; 就这样简单 编译就通不过。。
D del520 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #5 备注： cdir是公用变量。 如果我改成 if bo and bf then ShowMessage('xxx'); 则正常。
D del520 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #7 语句是肯定没有错的，只要换掉那个exit就可以，我将他换成 halt也行。
A armyjiang Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #8 死马当活马医吧! 将exit换到begin...end中试一下。
S sanwen Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #9 这问题比较怪,这样试试 if (FileExists(cdir+'/otherField.ini')) and (FileExists(cdir+'/otherTemp.ini')) then exit; 如果不行,建议重启DELPHI或机器.又或者是你的TMenu出错,试一下重新建一个菜单项
这问题比较怪,这样试试 if (FileExists(cdir+'/otherField.ini')) and (FileExists(cdir+'/otherTemp.ini')) then exit; 如果不行,建议重启DELPHI或机器.又或者是你的TMenu出错,试一下重新建一个菜单项
