Delphi深度拷貝結構體內存

//定義結構體
type
    mypoint=record
    x:integer;
    y:integer;
end;

//定義結構體指針
    PMyPoint = ^mypoint;

//聲明結構體指針變量
var
_pMyPoint1 : PMyPoint;
_pMyPoint2 : PMyPoint;

//給結構體指針分配內存方式1
_pMyPoint1 := New(PMyPoint);
_pMyPoint2 := New(PMyPoint);

//給結構體指針分配內存方式2
{
New(_pMyPoint1 );
New(_pMyPoint2 );
}

_pMyPoint1.x := 1;
_pMyPoint1.y := 2;

//深度拷貝結構體內存
MoveMemory(_pMyPoint2,_pMyPonit1,SizeOf(mypoint));

大公告成。