为啥编译不通过？新手求助！

帝国小八路

var
Filename :string;
procedure TForm1.ExitClick(Sender: TObject);
  begin
      Close;
  end;
procedure TForm1.openClick(Sender: TObject);
    begin
       dlgOpen1.Filter:='文本文档(*.txt)|*.TXT';
       if dlgOpen1.execute then
         begin
           Filename:= dlgOpen1.FileName;
           mmo1.Lines.LoadFromFile(Filename);
         end
       else //显示问题出在这里
       Exit;   
end;
end.

帝国小八路

救命啊，哭等！:'(:dizzy:

帝国小八路

乡亲们，帮忙看看呗！:Q

kongkong

var Filename :string;
begin

       OpenDialog1.Filter:='文本文档(*.txt)|*.TXT';
       if OpenDialog1.execute then
         begin
           Filename:= OpenDialog1.FileName;
           Memo1.Lines.LoadFromFile(Filename);
         end
       else //显示问题出在这里
       Exit;
在turbo delphi 2006 下运行没问题啊

帝国小八路

源码上传，第一步就出错，深受打击:L

jfaumt

begin
  dlgOpen1.Filter := '文本文档(*.txt)|*.TXT';
  if dlgOpen1.execute then
  begin
    Filename := dlgOpen1.Filename;
    mmo1.Lines.LoadFromFile(Filename);
  end
  else
    Exit;//----------------这个多余，直接注释掉。好像Exit只能用在函数中。
end;

帝国小八路

好了，谢谢了:loveliness: