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


本文整理自网络,侵删。

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

最近突然感觉 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;

相关阅读 >>

Delphi 10.2 ide界面

5种运行程序的方法具体应用实例

Delphi 判断字符串是否为纯数字组合

Delphi tdownloadurl下载网络文件

Delphi 顺序查找与二分查找

Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动

Delphi 让scrollbox响应鼠标滚轮事件

Delphi中format与formatdatetime函数详解

Delphi 如何获取桌面图标方法

Delphi中怎么判断一个文件夹是否为空

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...