如何在过程中定义exit(40分)

S

strchi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #1

比如
procedure TMainForm.MessageTs(s:string);
begin
application.MessageBox(PChar(s),'请注意！',MB_OK+MB_iconquestion);
exit;
end;
begin
messageTs('1');
messageTs('2');
end;
事实上我希望只弹出'1'
各位，如何才能达到如此效果？

 

S

SoftBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #2

把exit改成abort即可。

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #3

不用exit, 用abort;

但是上面的得改一下
procedure TMainForm.MessageTs(s:string);
begin
application.MessageBox(PChar(s),'请注意！',MB_OK+MB_iconquestion);
Abort;
end;
begin
try
messageTs('1');
messageTs('2');
except
exit;
end;
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #4

exit只能退出子过程(函数)。
将上面的过程改用函数，返回一个boolean变量，根据返回值确定是否要执行两次。

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #5

procedure TMainForm.MessageTs(s:string);
begin
application.MessageBox(PChar(s),'请注意！',MB_OK+MB_iconquestion);
messageTs('1');
exit;
messageTs('2');
end;