如何在procedure中中途退出过程?就像其它语言中使用return

Question

用exit  就可以了.
你应该多看看书.

Answer 1

procedure Tform1.procedure1(Sender:Tobject);
begin
if allright then 
  showmessage(' it allright!') 
else
begin
  exit ;
  showmessage('you should not see this message box'); 
end;end;

Answer 2

如果你在
try
   ...
except或者finally
   ...
end;
中使用了exit，那么就要注意了！
如果exit在try...except之间，那么，except与end之间的语句
将不被执行！也就是说，如果你在exit之前分配了内存、使用了
系统资源，在exit之前必须自己先把它释放！

Answer 3

呵呵,真是不好意思,书我有三本,分别是《跟我学Delphi 5.0编程指南》、《Ｄelphi4.0入门与提高》和《Delphi5从入门到精通》，前两者说得太简单了，也没几页，后者却是基本上不讲这些基础的东东，我是翻上翻下也找不到，还真舍不得我的分呢：－）
可惜我这边好书不多，适合我的书就更少了，呜呼。。
怎么给分？？？？
我明明已经登录了，可进入到这个页面却提示“你还没有登录”，怎么回事？session哪去了？我已经打开小甜饼了呀！