在delphi中终止一个线程

unit MyThreadUnit;

interface

uses
  System.Classes;

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

implementation

procedure TMyThread.Execute;
var
  i: Integer;
begin
  // 在线程中执行的任务代码
  for i := 1 to 10 do
  begin
    // 检查线程是否应该终止
    if Terminated then
      Break;

    // 执行任务代码
    // ...
  end;
end;

end.

unit MainFormUnit;

interface

uses
  // ...

type
  TForm1 = class(TForm)
    // ...
  private
    MyThread: TMyThread;
    procedure StartThread;
    procedure StopThread;
  end;

implementation

procedure TForm1.StartThread;
begin
  // 创建并启动线程
  MyThread := TMyThread.Create(True);
  MyThread.FreeOnTerminate := True;
  MyThread.Start;
end;

procedure TForm1.StopThread;
begin
  // 终止线程的执行
  if Assigned(MyThread) then
  begin
    MyThread.Terminate;
    MyThread.WaitFor;
    MyThread := nil;
  end;
end;

// ...

end.