delphi中是否有拷贝数组的函数
发布网友
发布时间：2023-07-22 08:16
共1个回答
热心网友
时间：2023-09-14 07:52
数组的拷贝，使用 copy 函数就可以了，以下是示例：
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;
