记录类型拷贝

除了使用内存拷贝Move、copymem外，还有以下方法

type
  TInfo = Record
    Count:Integer;
    x:Integer;
    y:Integer;
  End;
  PInfo = ^TInfo;

var
  pf:PInfo;
implementation

{$R *.dfm}

//线程函数
function ThreadFun(p:Pointer):DWord;stdcall;
var
  Info:TInfo;
  i:Integer;
begin
  Info:=PInfo(p)^;  //这里拷贝值，而不是用指针。
  for i := 0 to Info.Count-1 do
    begin
      。。。
    end;
  Result:=0;
end;

-------------------------

记录比较函数

comparemem