delphi 过程中强制退出过程用什么语句?谢谢!!

Question

如题所问,谢谢!!(我要穷死了,只能给这么多了.呵呵)

Answer 1

Exit;//退出本过程,继续执行调用些过程后的代码
Abort;//退出本过程，中止调用过程后的代码

Answer 2

Break退出循环
Halt彻底关闭

Answer 3

Abort 和 Exit 是系统API在procedure 中用了Abort,此时会产生一个异常,只不过此异常不出现消息框, 此时你的过程将跳到,异常被处理的地方(如果这个异常不是被application自己处理的,而是进行到了自己的的异常处理中,那么异常处理完后的代码还是要执行的) Exit只是跳出此procedure, 在procedure结束后,主流程中后面的代码还是要执行的.Application.Terminate
是比较狠的,直接给应用程序发去WM_QUIT,让应用程序自己清清白白地了结了自己的生命!根据你的实际情况,想用哪个就用哪个!

Answer 4

procedure TForm1.jingle;
Var
  jingle: integer;
begin
  jingle := 3;
  try
    if jingle = 3 then
      abort;
  except
  end;    if jingle= 2 then
      jingle := 3;end;执行上在的过程可知,abort后,  
if jingle= 2 then
      jingle := 3;
的代码还是要执行的,因为前面有自己的异常处理.