Delphi7 TThread使用实例参考代码

Delphi 7中的`TThread`是一个用于创建和管理线程的组件，它允许你在Windows应用程序中并行执行任务。下面是一个简单的TThread使用实例：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, threading;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    ThreadProc: TPooledThreadMethod; // 定义线程处理函数
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 创建一个新的线程，并传入自定义的处理函数
  FThread := TThread.Create(True, False, ThreadProc, nil);

  // 开始线程执行
  FThread.Start;

  // 更新主界面，显示“正在运行”
  Memo1.Lines.Add('线程已启动');
end;

// 这是线程处理函数，这里我们只是简单地等待一段时间然后打印一条消息
TPooledThreadMethod ThreadProc; // 使用TPooledThreadMethod声明
begin
  try
    Application.ProcessMessages; // 等待消息循环完成，模拟耗时操作
    Sleep(5000); // 模拟5秒延迟
    Memo1.Lines.Add('线程结束');
  except
    on E: Exception do
      Memo1.Lines.Add('线程异常: ' + E.Message);
  end;
end;

end.

在这个例子中，当用户点击按钮时，会启动一个新的线程来执行`ThreadProc`函数，这个函数中包含了线程需要执行的任务。主线程（UI线程）将继续响应用户的其他交互，直到线程执行完毕。