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));

大公告成。