Delphi数组复制（只能使用System单元的Move函数）

const 
  AA : arrary[0..4] of byte =(0,1,2,3,4)
var
  BB : arrary[0..4] of byte;
begin
  BB := AA ;   {这样是错误的}
  Move(AA,BB,sizeof(BB));  {正确的}
end;

http://blog.csdn.net/shuaihj/article/details/6129575