自定义的数组如何完全复制

Question

数组里还包含自定义的结构，结构中又包含一个数组用aa:=copy(bb);不行
另外遍历可以，但除了这种方法还有没有更好的

Answer 1

var
  Data1, Data2: array[0..99] of string; 
begin
  CopyMemory(@Data2,@Data1,SizeOf(Data1));
end;这样把1 复制到2中

Answer 2

>>结构中又包含一个数组
在delphi 的 win32 部分, 可能只能自己编码解决了, 楼上的说法不对在.net 下, 倒是可以自己定义clone方法

Answer 3

aiirii(ari-淘金坑)说的也不完全对
>>结构中又包含一个数组
如果这个数组是定长的是可以用Move来复制的，如果不是定长的
就只能遍历了。。

Answer 4

可以采用下面的方法，但是这是极不安全的。
type
  TA=record
    i:integer;
    b:integer;
  end;type
  TB=record
    i:integer;
    b:byte;
  end;procedure TForm1.Button1Click(Sender: TObject);
var
  pa,pb:^byte;
  a:ta;
  b:tb;
  i:integer;
begin
  a.i:=100;
  a.b:=200;
  pa:=@a;
  pb:=@b;
  for i:=1 to sizeof(b) do
  begin
    pb^:=pa^;
    inc(pb);
    inc(pa);
  end;
  showmessage(inttostr(b.i)+'        '+inttostr(b.b));
end;在kingron的资料包里发现这么个东东，有空试一下