delphi - 如何在没有大量IF的情况下控制执行？

Question

我有一个流程，从从文件导入数据开始，然后执行一系列过程，但在任何时候它都会发现问题，应该停止执行其余的过程并运行另一组过程。

这是我的示例，其中每个过程都设置全局 gStop 变量来指示停止进程。如果它被停止，我需要在最后运行一些代码。

var gStop:boolean;


procedure Run;
begin
  gStop:=False;
  Import; // imports data from file
  If Not gStop Then
    AfterImport1;
  If Not gStop Then
    AfterImport2;
  If Not gStop Then
    AfterImport3;
  If Not gStop Then
    AfterImport4;
  If Not gStop Then
  If fTypeOfData = cMSSQL Then // function returns type of imported data
  begin
    ProcessMSSQLData1;
    If not gStop Then
      ProcessMSSQLData2;
    If not gStop Then
      ProcessMSSQLData3;
    If not gStop Then
      If fObjectAFoundInData Then // function checks if ObjectA was found in imported data
        ProcessObjectA;
    If not gStop Then
      ProcessMSSQLData4;
  end;
  If Not gStop Then
    AfterImport5;
  ...
  // If stopped at anytime
  If gStop then
  begin    
    LogStoppedProcess; 
    ClearImportedData;
    ...  
  end;
end;

就我而言，它实际上有超过 200 行代码，所以当我维护这部分代码时，我必须上下滚动。

有什么方法可以改进此过程，使其更具可读性、更易于维护，或者是否有其他方法可以在没有所有 IF 的情况下停止该过程？

编辑1:

每个程序都可以找到错误的数据并可以设置gStop := True;并且该过程应跳过所有其余过程，只在 gStop = True; 时执行最后的部分代码。

编辑2:

我希望保持主程序(运行)控制工作流程，以便我可以看到主导入后运行的所有任务。如果我将执行分解为许多较小的过程，我只会看到更多的困惑以及更少的可读性和可维护性。然后我就可以:

procedure Run;
begin
  gStop:=False;
  Import; // imports data from file
  RunEverytingAferImport; // execute ALL tasks after import
  // If stopped at anytime
  If gStop then
  begin    
    LogStoppedProcess; 
    ClearImportedData;
    ...  
  end;
end;

此工作流程似乎设计不正确。我想知道导入后运行的主要任务是什么，而不是每次需要查看它时都进行发现之旅。所有任务都已按目的、任务内容、任务方式以及结果分组到程序中。

结论:

尽管不是最好的选择，但我决定在需要停止进程时使用引发异常。我“有点”理解这种方法带来的影响(一旦我实现它，就会了解更多)，但这似乎是朝着有一天更好地实现整个过程的合乎逻辑的一步。现在我不会在每个任务执行中看到所有这些 IF。好的!代码将更具可读性、可维护性。

我阅读了提供的链接来解释使用异常来停止工作流执行的陷阱，但是，正如 Dalija Prasnikar 在评论中解释的那样，这不是任务的性能相关部分；每个应用程序运行时进程仅执行一次；任务已经按照其所做的事情进行了结构化；任务已经包含多个 IF 语句，其中检查已停止的进程等，因此我认为异常不会成为解决我的问题的非常糟糕的解决方案。

此外，如果我将任务转换为返回结果的函数，我想我也会遇到同样的问题，检查每个任务的值并据此停止或继续该过程。

所以，引发异常是我的选择。

Answer 1

您应该使用自定义异常，并在遇到中断工作并转到 Stopped 代码的原因时引发它。在您的 Import、AfterImport1 和其他代码逻辑中，只需调用 Stop 过程，它就会执行 Stopped 过程。另一方面，如果一切顺利，Stopped 将不会被调用。

您可以从 EAbort 得出您的异常创建静默异常

type
  EStopException = class(EAbort);

或从基 Exception 派生类使用常规类型异常。

type
  EStopException = class(Exception);

procedure Stop(const Msg: string);
begin
  raise EStopException.Create(Msg);
end;

procedure Import;
var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    // your code logic
    if NeedToStop then Stop('something happened');        
  finally
    // perform any cleanup code needed here
    sl.Free;
  end;
end;

procedure Stopped;
begin
end;

procedure Run;
begin
  try
    Import;
    AfterImport1;
    AfterImport2;
  except
    on e: EStopException do
      Stopped;
  end;
end;