如何从另一个事件/线程终止当前事件/线程的执行？（Delphi）

根据你的场景，这里分两种核心情况给出优雅的实现方案，避免在每个函数调用前重复编写终止判断：

场景1：代码在独立工作线程中执行 #

如果这段逻辑是在TThread子类的Execute方法中运行，可利用Delphi线程原生的Terminated属性结合结构化异常处理，实现集中式的终止控制：

1. 先自定义一个终止专用异常类：

type
  EExecutionTerminated = class(Exception);

2. 把待执行的函数统一存入数组，通过循环集中检查终止信号，无需逐个函数前置判断：

// 工作线程的Execute方法实现
procedure TMyWorkerThread.Execute;
type
  TProc = procedure;
var
  ExecFuncs: array of TProc;
  I: Integer;
begin
  // 按执行顺序注册函数
  SetLength(ExecFuncs, 5);
  ExecFuncs[0] := functioncall1;
  ExecFuncs[1] := functioncall2;
  ExecFuncs[2] := functioncall3;
  ExecFuncs[3] := functioncall4;
  ExecFuncs[4] := functioncall5;

  try
    for I := Low(ExecFuncs) to High(ExecFuncs) do
    begin
      // 集中检查线程终止信号，一旦触发直接抛出异常跳出整个序列
      if Terminated then
        raise EExecutionTerminated.Create('执行已被终止');
      ExecFuncs[I];
    end;
  except
    on E: EExecutionTerminated do
      begin
        // 这里写终止后的资源清理逻辑
      end;
    else
      // 其他异常正常抛出
      raise;
  end;
end;

// stopAllExecution的实现
procedure stopAllExecution;
begin
  if Assigned(MyWorkerThread) then
  begin
    MyWorkerThread.Terminated := True;
    // 若线程可能处于阻塞状态，可调用WaitFor或其他唤醒逻辑
  end;
end;

如果你的函数存在阻塞操作（如IO等待、Sleep），可以在这些函数内部添加Terminated属性检查，一旦检测到终止信号就提前退出，避免线程长时间无响应。

场景2：代码在主线程事件中执行 #

如果这段逻辑是在主线程的事件处理（如按钮点击）中运行，因为主线程不能强制终止，需采用协作式终止，但同样可以避免重复判断：

1. 定义一个全局/类级别的终止标志：

var
  g_NeedTerminate: Boolean = False;

2. 把执行序列封装到统一过程中，用循环集中检查标志：

procedure ExecuteMainThreadSequence;
type
  TProc = procedure;
var
  ExecFuncs: array of TProc;
  I: Integer;
begin
  g_NeedTerminate := False;
  SetLength(ExecFuncs, 5);
  ExecFuncs[0] := functioncall1;
  ExecFuncs[1] := functioncall2;
  ExecFuncs[2] := functioncall3;
  ExecFuncs[3] := functioncall4;
  ExecFuncs[4] := functioncall5;

  try
    for I := Low(ExecFuncs) to High(ExecFuncs) do
    begin
      if g_NeedTerminate then
        Break;
      ExecFuncs[I];
      // 若单个函数执行时间较长，需插入ProcessMessages确保主线程能响应终止指令
      Application.ProcessMessages;
    end;
  finally
    g_NeedTerminate := False; // 重置标志
  end;
end;

// stopAllExecution的实现
procedure stopAllExecution;
begin
  g_NeedTerminate := True;
end;

额外优化：装饰器模式封装检查逻辑 #

如果不想用数组循环，还可以用装饰器把每个函数包装成带终止检查的版本，后续调用只需套一层包装即可：

type
  TCheckedProc = procedure;

function WrapWithTerminateCheck(const Proc: TCheckedProc): TCheckedProc;
begin
  Result := procedure
    begin
      // 这里根据场景选择检查线程Terminated还是全局标志
      if (Assigned(MyWorkerThread) and MyWorkerThread.Terminated) or g_NeedTerminate then
        raise EExecutionTerminated.Create('执行终止');
      Proc;
    end;
end;

// 使用示例
WrapWithTerminateCheck(functioncall1);
WrapWithTerminateCheck(functioncall2);
// ...

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