Question

delphi中是否有拷贝数组的函数

Answer 1

数组的拷贝，使用 copy 函数就可以了，以下是示例：

procedure TForm1.Button1Click(Sender: TObject);
var
  A, B, C: array Of Integer;
begin
  SetLength(A, 2);
  SetLength(B, 2);
  SetLength(C, 2);

  A[0]:= 1;
  A[1]:= 2;
  
  //引用式复制
  B := A;
  ShowMessageFmt('A0:%D,B0:%D', [A[0], B[0]]); // A0:1,B0:2
  B[1] := 5;
  ShowMessageFmt('A1:%D,B1:%D', [A[1], B[1]]); // A1:5,B1:5

  //复制
  C := Copy(A);
  ShowMessageFmt('A0:%D,C0:%D', [A[0], C[0]]); // A0:1,C0:1
  C[1] := 15;
  ShowMessageFmt('A1:%D,C1:%D', [A[1], C[1]]); // A1:5,C1:15

end;