寻求条件代码块优化方案及相关技术文档支持

这种重复维护lOk状态判断的问题确实很头疼，尤其是当流程有上百个步骤的时候，一堆if lOk then不仅代码冗余，还容易漏写判断导致逻辑错误。下面分享几个适合Delphi场景的解决方案：

方案1：用异常处理替代布尔状态返回 #

如果你的流程中，步骤失败属于异常情况（而非预期的业务分支），那么用异常来控制流程会极大简化代码。把原本返回布尔值的函数改成失败时抛出特定异常，这样不需要每个步骤都手动检查状态，异常会自动中断流程并跳转到错误处理块。

示例代码：

begin
  try
    // 所有步骤按顺序执行，失败则直接抛出异常
    DoSomethingImportant1; 
    LoadData;
    SaveData;
    DoSomethingwithSavedData1;
    DoSomethingwithSavedData2;
    DoSomethingImportant2;
    // ...后续所有步骤
  except
    on E: TSpecificOperationError do // 自定义异常类型，对应特定错误
      GiveSpecificErrorAndExit;
    on E: Exception do // 处理其他意外异常
      HandleUnexpectedError(E);
  end;
end;

优点： #

• 彻底消除重复的状态判断，代码更简洁易读
• 错误逻辑集中在except块，维护更方便
• 能清晰区分"预期成功"和"异常失败"的场景

注意： #

• 不要用异常处理预期的业务分支（比如用户输入无效这类常见情况），应该留给真正的系统级错误或不可预期的失败。

方案2：封装状态的链式执行类 #

如果不想用异常，或者有些失败是预期的业务流程，可以封装一个执行器类，把每个步骤包装成链式调用的方法，内部自动维护成功状态。

示例代码：

type
  TExecutionFlow = class
  private
    FIsSuccess: Boolean;
  public
    constructor Create;
    // 包装每个业务步骤的方法
    function DoSomethingImportant1: TExecutionFlow;
    function LoadData: TExecutionFlow;
    function SaveData: TExecutionFlow;
    function DoSomethingwithSavedData1: TExecutionFlow;
    function DoSomethingwithSavedData2: TExecutionFlow;
    function DoSomethingImportant2: TExecutionFlow;
    // 暴露状态供最终检查
    property IsSuccess: Boolean read FIsSuccess;
  end;

// 类实现
constructor TExecutionFlow.Create;
begin
  inherited;
  FIsSuccess := True; // 默认初始状态为成功
end;

function TExecutionFlow.DoSomethingImportant1: TExecutionFlow;
begin
  Result := Self;
  if FIsSuccess then
    FIsSuccess := ::DoSomethingImportant1; // 调用原全局函数
end;

// 其他方法的实现逻辑和上面一致，只需要替换对应的业务函数
function TExecutionFlow.LoadData: TExecutionFlow;
begin
  Result := Self;
  if FIsSuccess then
    FIsSuccess := ::LoadData;
end;

// 使用方式
begin
  with TExecutionFlow.Create do
  try
    // 链式调用所有步骤，只有前一步成功才会执行当前步骤
    DoSomethingImportant1
      .LoadData
      .SaveData
      .DoSomethingwithSavedData1
      .DoSomethingwithSavedData2
      .DoSomethingImportant2;
    // 最后只需要检查一次状态
    if not IsSuccess then
      GiveSpecificErrorAndExit;
  finally
    Free;
  end;
end;

优点： #

• 把状态判断逻辑封装在类内部，业务代码只需要关注流程顺序
• 添加新步骤只需要在类中新增一个包装方法，不需要修改业务流程代码
• 链式调用的写法更流畅，可读性强

方案3：用过程指针列表批量执行步骤 #

如果你的流程是线性的，所有步骤都是返回布尔值的函数，可以把这些步骤存到一个过程指针数组里，通过循环自动执行并检查状态。

示例代码：

type
  TStepFunction = function: Boolean; // 定义步骤函数的类型

begin
  var lOk := True;
  // 把所有步骤按顺序加入列表
  var Steps: array of TStepFunction := [
    @DoSomethingImportant1,
    @LoadData,
    @SaveData,
    @DoSomethingwithSavedData1,
    @DoSomethingwithSavedData2,
    @DoSomethingImportant2
    // ...添加更多步骤
  ];

  // 循环执行所有步骤，失败则终止
  for var Step in Steps do
  begin
    if not lOk then Break;
    lOk := Step();
  end;

  if not lOk then
    GiveSpecificErrorAndExit;
end;

优点： #

• 管理步骤非常方便，新增/删除步骤只需要修改数组
• 彻底消除重复的if lOk then判断
• 代码量最少，适合大量线性步骤的场景

注意： #

• 如果某个步骤不需要返回布尔值（比如DoSomethingwithSavedData1只是执行操作，没有失败可能），可以包装成返回True的函数：

  function WrapDoSomethingwithSavedData1: Boolean;
  begin
    DoSomethingwithSavedData1;
    Result := True;
  end;
  

内容的提问来源于stack exchange，提问作者Steve88