关于冲出过程

关于跳出过程
比如现在有个过程a
begin
..语句1
exit;
..语句2
end；

下面有个过程b
begin
..语句11
a;
……语句12
end;

现在是我在b中调用了a，执行语句11，然后如果a执行完语句1跳出了a过程，那么我想让b过程也跳出不再执行下面的语句12，要如何做到

[解决办法]
把a改成function，在b里检查a的返回值。
[解决办法]
楼上说得没错：

Delphi(Pascal) code

...function a: boolean;begin  Result:=true;  ...语句1  exit;  ...语句2  Result:=false;end;procedure b;begin  ...语句11  if a then exit;  ...语句12end;...
[解决办法]
Delphi(Pascal) code
function a:boolean;beignresult:=false;..语句1exit;..语句2result:=true;end;procdure b;beign...语句11if a then...语句12end;