将参数传递给同步过程调用

创建线程对象时，我想从应用程序中调用需要同步的代码。问题是我不知道怎么打电话Synchronize对于带有参数的应用程序函数。

说我们有

procedure ThreadObject.Execute;
var
  val1,val2:integer;
  Star:string;
begin
  Synchronize(funcyfunc); //how to pass val1,val2,star here?
end;

where funcyfunc定义如下

procedure OtherClass.funcyfunc(param1,param2:integer;spok:string);
begin
   letsCallFriends(spok,param1);
   letsCallFriends(spok,param2);
end;

现在奇怪的解决方案是在 ThreadObject private 中说

private
  star:string;
  val1,val2:integer;
  procedure starVal;

在实施过程中我们做

procedure ThreadObject.starVal;
begin
  funcyfunc(Star,val1,val2);
end;

在线程执行中我们更改为

procedure ThreadObject.Execute;
var
  val1,val2:integer;
  Star:string;
begin
  Synchronize(starVal); //how to pass val1,val2,star here?
end;

但这很麻烦，因为每个过程调用都必须有一个全局变量。有没有更好的办法？

code:

unit ThreadObject;

interface

uses
  Classes;

type
  TThreadObject= class(TThread)
  private
    star:string;
    val1,val2:integer;
    procedure starVal;
  protected
    procedure Execute; override;

    //assume we have a constructor that ini the star val1 val2.
  end;

implementation

{ TThreadObject }

procedure ThreadObject.Execute;
var
  val1,val2:integer;
  Star:string;
begin
  Synchronize(starVal); //how to pass val1,val2,star here?
end;

procedure ThreadObject.starVal;
begin
  funcyfunc(Star,val1,val2);
end;

end.

Use 匿名方法.

正如您可以在手册中阅读的那样TThread.Synchronize

Synchronize(
  procedure
  begin
    Form1.Memo1.Lines.Add('Begin Execution');
  end);

在上面的例子中引用变量 Form1有点像被复制并保存，直到程序被执行（称为变量捕获).

注意：David 反对“复制变量”的想法，他可能是对的。然而，讨论所有极端情况和实施细节将是一种矫枉过正。他与“全局变量”OTOH 的比较可能会在递归过程等方面遇到麻烦。所有易于理解的类比都非常粗糙，并且以某种方式倾斜 ISTM。

您的匿名过程应该使用您的变量val1 and val2然后他们也应该被抓获

http://docwiki.embarcadero.com/Libraries/XE5/en/System.Classes.TThread.Synchronize