我想做的事情:
我有一个通用列表中的几个对象。我想在匿名方法中捕获每个对象,并将此方法作为单独的OTL任务执行。
这是一个简化的示例:
program Project51;
{$APPTYPE CONSOLE}
uses
SysUtils, Generics.Collections, OtlTaskControl, OtlTask;
type
TProc = reference to procedure;
type
TMyObject = class(TObject)
public
ID: Integer;
constructor Create(AID: Integer);
end;
constructor TMyObject.Create(AID: Integer);
begin
ID := AID;
end;
var
Objects: TList<TMyObject>;
LObject: TMyObject;
MyProc: TProc;
begin
Objects := TList<TMyObject>.Create;
Objects.Add(TMyObject.Create(1));
Objects.Add(TMyObject.Create(2));
Objects.Add(TMyObject.Create(3));
for LObject in Objects do
begin
//This seems to work
MyProc := procedure
begin
Writeln(Format('[SameThread] Object ID: %d',[LObject.ID]));
end;
MyProc;
//This doesn't work, sometimes it returns 4 lines in console!?
CreateTask(
procedure(const Task: IOmniTask)
begin
Writeln(Format('[Thread %d] Object ID: %d',[Task.UniqueID, LObject.ID]));
end
).Unobserved.Run;
end;
Sleep(500); //Just wait a bit for tasks to finish
Readln;
end.
以下是结果:
如您所见,在主线程中捕获似乎运行良好。但是,我不知道是否已经捕获了指向对象的指针或仅其ID字段?
当我尝试捕获对象并将匿名方法传递给CreateTask
函数时,事情变得奇怪。
首先,只有第三个TMyObject
实例似乎被捕获。其次,尽管通用列表中只有三个对象,但控制台日志中却有四条消息。第二种行为是不一致的,有时我在控制台中得到三条消息,有时我得到四条消息。
请解释上述两个问题的原因,并提出一个解决方案,消除问题并允许我将每个对象实例传递给单独的OTL任务。(我不想使用常规的TThread
类。)
LObject
中的对象引用。 - Rob Kennedy