如何将一个数组的部分内容拷贝到另外一个数组中？

Question

代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
  tmpArr:array[1..10] of byte;
  myarr:array of byte;
begin
  setlength(myarr,6);
  myArr:=copy(tmpArr,0,5);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpArr:array[1..10] of byte;
  myarr:array of byte;
  i:integer;
begin
  setlength(myarr,6);
  for i:=0 to 5 do
  myArr[i]:=tmparr[5+i];
end;

Answer 2

CopyMemory 函数 内存拷贝 
FillMemory 函数 
MoveMemory 函数

Answer 3

当然for循环的方法是可是实现的。
但那样就没有什么意思了。下面这些函数怎么没有找到啊
CopyMemory 函数 内存拷贝 
FillMemory 函数 
MoveMemory 函数

Answer 4

losenetway不知道你喜欢用什么方法实现？

Answer 5

http://www.csdn.net/develop/article/14/14964.shtm

Answer 6

to ehom
   thanks