move的疑惑 ( 积分: 50 )

TA=record
a1:byte;
..
var a1,a2 :TA
move(a1,a2,sizeof(TA))
这么写没有问题的.
///////
var a1,a2:array of TA

setlength(a2,high(a1)+1)
move(a1,a2,sizeof(TA)*high(a1)+1)
好像此有问题.
///////
TB = array of longint;
var b1,b2:TB

setlength(b2,high(b1)+1)
move(b1,b2,high(b1)+1*sizeof(longint))
有问题的.
如果 move(b1,b2,sizeof(b1));可以把数据移到b2,但不稳定.有时候会错误.
请高手解析一下.
-----------------------------------
CopyMemory(@b2[0],@b1[0],size*sizeof(longint));

动态数组,必须先指定长度的
var a1,a2:array of TA

setlength(a2,high(a1)+1)
move(a1,a2,sizeof(TA)*high(a1)+1)
好像此有问题.
这个肯定就有问题了
a1与a2的长度一样吗?你自己check以下