学鱼C记事本时exit;这句总报错？？？

xhxlt0820 · 发表于 2013-11-16 22:11:16

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

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

x

本帖最后由 xhxlt0820 于 2013-11-16 22:13 编辑

procedure TForm1.FontClick(Sender: TObject);
begin
If FontDialog1.Execute Then
Memo1.Font:=FontDialog1.Font
Else
exit;
end;
这类代码，只要If开头的句子，Else后面的exit;这句总出错，保存控件，打开控件后面都一样，分明是照小甲鱼做的，为什么我的这句会报错呢？

xhxlt0820 · 发表于 2013-11-20 14:40:40

为什么没有人愿意帮助新手，郁闷中……

沉默的风采 · 发表于 2013-11-21 08:09:38

begin
  if dlgFont1.Execute then
  mmo1.Font:=dlgFont1.Font
  else
  Exit;
end;

我试了一下，没问题啊，是不是你的控件名称和代码里不一样呢？

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