论坛 › Delphi交流 › 为啥编译不通过？新手求助！

帝国小八路 发表于 2012-3-11 16:54:38

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

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.

帝国小八路 发表于 2012-3-11 20:48:10

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

帝国小八路 发表于 2012-3-12 09:27:26

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

kongkong 发表于 2012-3-12 12:28:04

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 下运行没问题啊

帝国小八路 发表于 2012-3-12 13:01:20

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

jfaumt 发表于 2012-3-12 14:16:23

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

帝国小八路 发表于 2012-3-12 15:54:55

好了，谢谢了:loveliness:

查看完整版本: 为啥编译不通过？新手求助！