delphi TThread 教学

Delphi TThread 是 Delphi 开发环境中用于创建和管理线程的组件。它允许你在程序中并发执行任务，增强应用程序的响应性和效率。以下是 TThread 的基本教学：

1. **创建新线程**：
使用 `TThread.Create` 创建一个新的线程，需要提供一个匿名函数（即 `TThread.CreateAnonymous`）或者自定义的 TThread 子类实例。

var
  WorkerThread: TThread;
begin
  WorkerThread := TThread.Create(True, False, <>
    procedure DoWork; // 匿名过程或自定义方法
  begin
    // 线程执行的代码
  end);
end;

2. **启动和同步**：
通过调用 `.Start` 启动线程，`.Resume` 可以恢复暂停的线程。线程间通信可以使用互斥量（`TMemoryLock`）或事件（`TEvent`）。

WorkerThread.Resume; // 启动线程
// 线程执行期间...

3. **等待线程结束**：
如果主线程希望等待子线程完成，可以使用 `.Wait` 或者设置线程为自动终止（`FreeOnTerminate`），然后调用 `.Terminate` 和 `.Join`。

WorkerThread.WaitFor(0); // 立即结束当前循环并阻塞
WorkerThread.Join; // 主线程等待 WorkerThread 结束

4. **异常处理**：
对于可能出现的异常，线程可以捕获并通过 `Try/Finally` 或 `OnException` 属性进行处理。

WorkerThread.OnException := procedure(Exception: Exception) begin
  // 处理异常
end;