exit的用法

clb929 · 发表于 2013-8-2 18:55:26

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 clb929 于 2013-8-2 19:01 编辑

  源代码如下
procedure TForm1.FontExecute(Sender: TObject);
begin
  if FontDialog1.Execute then
StringGrid1.Font:= FontDialog1.Font
  else
exit;
end;

编译报错，但是去掉
  else
exit;
后正常
实在想不出什么原因，望高手指点
（去掉后面的语句后我是加了分号的，呵呵，语法上应该是没问题）

clb929 · 发表于 2013-8-2 19:00:57

找到原因了，原来我自己在actionlist里面定义了一个name为 exit的action，冲突了，改了名字后已经解决。

clb929 · 发表于 2013-8-2 19:04:25

受这个问题的启发，我已经把ACTIONLIST里面有可能和关键词冲突的名字都改了，长经验了啊。

11年__那些事儿 · 发表于 2013-8-3 17:04:41

支持一下楼主！

晨风吹过 · 发表于 2013-8-14 20:46:25

支持啊。楼主

clb929 · 发表于 2013-8-14 21:11:01

谢谢支持

哥哥123 · 发表于 2015-7-25 19:59:29

我来看看

账号		自动登录	找回密码
密码			立即注册