multithreading - Delphi线程返回值

Question

有人可以向我解释如何从 myThread 调用函数测试中获取返回值吗？

function test(value: Integer): Integer;
begin
  Result := value+2;    
end;

procedure myThread.Execute;
begin
  inherited;
  test(Self.fParameters);
end;

procedure getvaluefromthread();
var
  Capture : myThread;
begin
  list := TStringList.Create;
  Capture := myThread.Create(False);
  Capture.fParameters := 2;
  Capture.Resume;
end;

Answer 1

声明一个派生自 TThread 的类.

添加一个或多个字段以包含结果值。

在覆盖的 Execute 中设置结果值字段方法。

线程完成后，从线程实例中读取结果。

正如 Remy 指出的那样，如果您只想返回一个 Integer值，那么您可以使用 ReturnValue TThread 的属性(property).以与上述相同的方式使用它。请注意，放置在 ReturnValue 中的值是底层操作系统线程返回的值。

您可以收听 OnTerminate找出线程何时完成。或调用 WaitFor .

请注意，您在线程开始运行后设置线程的参数。要么创建挂起的线程，要么将参数传递给构造函数。此外，您应该使用 Start而不是 Resume .后者已弃用。