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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024