关于动态数组指针操作的两个例子

来源：互联网发布：熊猫pdd淘宝小吃名字编辑：程序博客网时间：2024/05/22 01:41

最近突然感觉 Delphi 的动态数组非常好用, 善用它可以省略很多 GetMem、ReallocMem; 并且它是被自动维护的。动态数组变量 arr 本身就是指针, 不能再用 @arr 获取;但要获取某个元素位置的指针, 应该是 @arr[x]; 但随着数组的再分配, 这个地址是变化的。

//动态数组地址测试　　var　　i:　Integer;　　arr:　TBytes;　　p:　PByte;　begin　　SetLength(arr,　5);　　for　i　:=　0　to　4　do　arr[i]　:=　i　+　65;　　ShowMessage(StringOf(arr));　{ABCDE}　　p　:=　PByte(arr);　　ShowMessage(Chr(p^));　{A}　　p　:=　PByte(@arr[2]);　　ShowMessage(Chr(p^));　{C}　　p^　:=　Ord('-');　　ShowMessage(StringOf(arr));　{AB-DE}　end;　　//合并两个动态数组:　var　　arr1,arr2:　TBytes;　　len:　Integer;　begin　　SetLength(arr1,　3);　　SetLength(arr2,　3);　　　arr1[0]　:=　65;　arr1[1]　:=　66;　arr1[2]　:=　67;　　arr2[0]　:=　68;　arr2[1]　:=　69;　arr2[2]　:=　70;　　　len　:=　Length(arr1);　　SetLength(arr1,　len　+　Length(arr2));　　　CopyMemory(Ptr(DWORD(arr1)+len),　arr2,　Length(arr2));　　ShowMessage(StringOf(arr1));　{ABCDEF}　end;