把B写成一个函数,如果你要让A退出,反回为真,否为假
在A里面调用if B then exit;然后 在B中
如果想让程序也退出A,result:=True,如果不想退出A,result:=False;

解决方案 »

  1.   

    定义一个全局变量
    var
      flag: Boolean;
    在过程B退出之前设置flag,在A中判断
    比如
    B过程
      ...
      flag := false;
      Exit;
      ...
    A过程
      ...
      if not flag then
        Exit;
      ...
      

  2.   

    这两种方法我都想过。
    原来学Pascal的时候也都是这么用的。
    不过我想不通的是,delphi好象没有处理好"过程"这个概念,在VB中只是把过程当作一段要被包含的代码,所以它里面的Exit函数可以退出所有调用的父过程。谢谢两位!
      

  3.   

    Abort;
    //注意:不要随便使用!!
      

  4.   

    delphi好象没有处理好"过程"这个概念?
    你的"结构化程序设计"是怎么学的?
      

  5.   

    建议你采用人netlib(河外孤星)
    这样比较安全,而且符合逻辑
      

  6.   

    NO1:判断B的返回值,根据返回值
         if .. then Exit;//.. ->是对B的值进行判断;
    NO2:判断是否要去调用B;