Delphi数组复制

const 

   AA : arrary[0..4] of byte =(0,1,2,3,4)

var

  BB : arrary[0..4] of byte;

begin

  BB := AA ;   {这样是错误的}

  Move(BB,AA,sizeof(BB));  {正确的}

end;