delphi 如何不让让程序往下执行

Question

delphi 如何不让让程序往下执行 ?
我实在不想写 if else  这样的大嵌套
我的写法是: 
if edit1.text='' then 
begin 
showmessage('不能为空'); 
return; 
end 
. 
. 
. 
try 
. 
. 
. 
except 
on e:exception do 
showmessage(e.message); 
return; 
end; 
. 
. 
. 
. 
这样写是错的 不知怎么修改~~ 
我要的是 不符合要求 则不往下执行！

Answer 1

if edit1.text='' then  
begin  
showmessage('不能为空');  
exit;  
end  
.  
.  
.  
try  
.  
.  
.  
except  
on e:exception do  
showmessage(e.message);  
end;  
.  
.  
.  
.  

Answer 2

EXIT这个是可以终止,只是终止IF里的,END后面还接着走,如果用ABORT
程序终止，也可以用ＨＡＬＴ来终止

Answer 3

if edit1.text='' then  
begin  
showmessage('不能为空');  
return;  //不是return,这是C的写法,应该写成exit; 如果返回上一层也不让执行,那么可以考虑两种方式,一种是abort,触发一个异常,另一种是用标志来返回给上一层,上一层判断返回值,是否要继续执行.
end  
.  
.  
.  
try  
.  
.  
.  
except  
on e:exception do  
showmessage(e.message); 
  return;  //abort;
end;  
.  

Answer 4

看情况，如果你想在执行某段代码后直接退出函数体则用Exit，如果你想执行某段代码后终止后续代码的执行，则用abort