最近突然感觉 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(@arr1[len], arr2, Length(arr2)); ShowMessage(StringOf(arr1)); {ABCDEF} end;