代码不执行(50)

T

tom_zhxc1794

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-10-01

• #1

function TForm1.test: Boolean;begin Result := True; raise Exception.Create('test'); Result := True;end;procedure TForm1.FormCreate(Sender: TObject);begin if test then ShowMessage('abc');end;为什么TEST函数中的第一句不会执行,即RESULT:=FALSE;为什么不执行

 

T

thrhxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-10-01

• #2

我的可以执行，呵。

 

T

tom_zhxc1794

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-10-01

• #3

不是吧,我这边用的DELPHI 7你的呢

 

T

tom_zhxc1794

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-10-25

• #4

接受答案了.