在线程中如何，快速传递数据？？？？？

Question

我定义了一个记录：
type 
Trea=reacord
name:string;
aa:int64;
cc:array of String;[动态]
end;
然后定义一个数组：reaxxx ;array of Trea;[动态]
请问，1、reaxxx怎么样快速的传递给线程变量。2、在数据大于2GB时又如何快速的传递给线程。

Answer 1

function CreateThread(lpThreadAttributes: Pointer;
  dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine;
  lpParameter: Pointer; dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;
其中 lpParameter 就可以传送，它是指针！
要注意临界问题！
InitializeCriticalSection
DeleteCriticalSection
或使用互斥元
WaitForSingleObject