在 Delphi 中,可以通过以下几种方式传递参数给线程:
type
TMyThread = class(TThread)
private
FParam: Integer;
protected
procedure Execute; override;
public
constructor Create(Param: Integer);
end;
constructor TMyThread.Create(Param: Integer);
begin
inherited Create(True);
FParam := Param;
end;
procedure TMyThread.Execute;
begin
// 使用 FParam 进行操作
end;
然后,可以通过以下方式创建并运行线程:
var
MyThread: TMyThread;
begin
MyThread := TMyThread.Create(123);
MyThread.Start;
end;
type
TMyThread = class(TThread)
private
FParam: Integer;
protected
procedure Execute; override;
public
property Param: Integer read FParam write FParam;
end;
procedure TMyThread.Execute;
begin
// 使用 FParam 进行操作
end;
然后,可以通过以下方式创建并运行线程:
var
MyThread: TMyThread;
begin
MyThread := TMyThread.Create(True);
MyThread.Param := 123;
MyThread.Start;
end;
type
TMyThread = class(TThread)
private
FParam: Integer;
protected
procedure Execute; override;
public
constructor Create(Param: Integer);
end;
constructor TMyThread.Create(Param: Integer);
begin
inherited Create(True);
FParam := Param;
end;
procedure TMyThread.Execute;
begin
// 使用 FParam 进行操作
end;
然后,可以通过以下方式创建并运行线程:
var
MyThread: TMyThread;
begin
MyThread := TMyThread.Create(123);
MyThread.Start;
end;
以上是几种常见的传递参数给 Delphi 线程的方式,可以根据具体的需求选择适合的方式。