delphi 多线程框架列子

Delphi 提供了强大的多线程支持，其中最常用的是通过TThread类创建并管理线程。以下是一个简单的 Delphi 多线程示例：

uses
  System.Threading, // 引入多线程库

// 其他需要的单元体...

procedure WorkerThreadProcedure(const Param: Integer);
begin
  inherited Create; // 继承自TThread
  Self.Priority := tpHigh; // 设置优先级
  Self.FreeOnTerminate := False; // 线程结束时不自动释放
  try
    // 这里是你要在线程中运行的代码
    ShowMessage('Worker thread with ID: ' + IntToStr(Param));
  finally
    Finish; // 结束线程
  end;
end;

// 创建新线程
var
  Thread: TThread;
begin
  Thread := TThread.Create(True, True, @WorkerThreadProcedure, 42); // 参数传递给WorkerThreadProcedure
  Thread.Start; // 启动线程
  // 主线程继续执行...
  // 当你想等待线程完成时，可以调用Join或Wait方法
  // Thread.Join;
end;

在这个例子中，`WorkerThreadProcedure` 是线程要执行的任务，它接受一个整数参数并显示一条消息。主线程创建了一个新的线程 `Thread` 并启动它。