//定义部分
//SStrips声明
type SStrip = record
JobType : Integer;
UpDst, DnDst : Double;
MchnID : Integer;
BlksVol : SVolAndSpls;
end;
type TStrips = Array of SStrip;
//SAltern声明
type SAltern = record
BlkObjID : Integer;
MchnGrpID : Integer;
Strips : TStrips;
Tried : ShortInt;
MachEquiped : Boolean;
ValidNow : Boolean;
Wght : Double;
end;
TAlterns = array of SAltern;
假设原变量为Src，副本变量名为Tgt
我在用Move针对结构的静态空间的进行复制后发现，动态数组部分复制的是地址
即，结构部分复制的是数值，动态数组部分复制的是地址
Tgt的动态数组部分是源数据的引用，而不是副本
因此，当源数据Src释放后，访问Tgt的动态数组已经是垃圾数据了
由于我的程序中此类结构众多，如果不能用类似Move这样基础的操作方式复制，就需要针对每个类型写专用复制算法
请问各位大神
有没有什么方法可以快速建立 这种包括动态数组的记录（结构体）的 完全副本
谢谢！！
