Parallel Programming Library: Übergabe Pointer Problem

[Uwe Raabe]

Delphi-Quellcode:

function MakeTaskWorker(ipMyRecord: pMyRecord): TProc;
begin
  Result := procedure
    begin
      TaskWorker(ipMyRecord);
    end)
end;


...

  for i:= 0 to RecordArraySize - 1 do begin
    fTasks[fTaskNo]:= TTask.Create(MakeTaskWorker(fCurrentRecordArray));
    fTasks[fTaskNo].Start;
    fCurrentRecordArray:= fCurrentRecordArray^.Next;
    Inc(fTaskNo);
  end;