怎么样在过程中间中止一个过程?(即满足一个条件就不运行下面的代码,有没有像C中的GOTO用法的语句?)

Question

怎么样在过程中间中止一个过程?(即满足一个条件就不运行下面的代码,有没有像C中的GOTO用法的语句?我用CLOSE好像没用,照样执行其它代码.

Answer 1

一般情况下goto用作跳出深层嵌套。

Answer 2

procedure XXX;
begin
  ...
  exit;//退出本过程
end;

Answer 3

同意菠菜兄
if 条件 then exit;

Answer 4

Exit ;  // 退出子程序 ;
Break ; // 退出循环

Answer 5

跳出一个过程exit,
跳出一个循环BREAK.
delphi中也可以用GOTO.
BEGIN
GOTO E;
......
E:SHOWMESSAGE('BB');
END;
如果要强行终止把这个过程写成线程，就可以。tthread.terminate

Answer 6

有goto label语句。。
 首先定义:
  lable: label1
然后就;
  goto label1
就行啦。。