delphi 给动态数组添加一个元素

本文整理自网络，侵删。

 给动态数组添加一个元素
type
TOneArray = array of Integer;

procedure AddArrayItem(Arr: TOneArray; x: Integer);
begin
SetLength(Arr,Length(Arr)+1);
Arr[High(Arr)] := x;
end; 

相关阅读 >>

Delphi 将整数转换为罗马数字（字符串）2

Delphi 软件welcome窗口代码

简单的rs232c/ttl电平转换和串口取电

Delphi disable_uac_vista

Delphi 让嵌入窗体的 webbrowser 控件无边框

Delphi强制刷新注册表方法

Delphi 汉字转十六进制的函数，可以互转不乱码

Delphi 读取图像文件base64编码加载到image组件显示图片

Delphi 脉搏波9808血压计读取测试程序

Delphi 对image字段存取图片、文件

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

转载请注明出处：木庄网络博客 » delphi 给动态数组添加一个元素