Question

Delphi一个数组如何复制另一个数组？

不要循环，说个简单写法

Answer 1

Var
  A, B: Array Of Integer;
Begin
  SetLength(A, 2);
  SetLength(B, 2);
  A[0]:= 1;
  A[1]:= 2;
  B:= Copy(A); // 整个数组都复制过去
  B:= Copy(A, 0, 2); // 选择性复制
  B[0]:= 2;
  ShowMessageFmt('A0:%D,B0:%D', [A[0], B[0]]); // A0:1,B0:2
End;