意外发生时, 跳出一个过程后, 怎样设置它的断点?

Question

一段程序调用:
procedure TfrmChannelOptimize.suiButton1Click(Sender: TObject);
begin
  try
    GetMeaSure;
    OutPutReport;
  except
    Exit;
  end;
end;GetMeaSure中:procedure TfrmChannelOptimize.GetMeaSure;
.
.
.
begin
  try
    处理一段程序;
  except
    OnErrorExcept;
  end;
end;  如果在'处理一段程序'中发生了意外，只能跳到子程序OutPutReport去执行，问：怎样能直接跳出suiButton1Click版事件？即不执行OutPutReport过程？

Answer 1

给你的GetMeaSure加上返回值，当产生异常时返回值不为0，正常时，返回值为0。
再在OutPutReport;前加上判断语句即可。

Answer 2

try
    GetMeaSure;
    break;
    OutPutReport;
  except
    Exit;
  end;