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

exit的用法

本帖最后由 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

{:5_109:}谢谢支持

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

我来看看
页: [1]
查看完整版本: exit的用法