delphi 动态数组传递数据示例


本文整理自网络,侵删。

 unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Type
TMyByteArr = array of Byte;

procedure Proc(inArr: TMyByteArr; var OutArr: TMyByteArr);
begin
SetLength(OutArr, Length(inArr));
Move(inArr, outArr, Length(inArr));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
arr1,arr2: TMyByteArr;
i: Integer;
str: string;
begin
SetLength(arr1, 3);
arr1[0] := 11;
arr1[1] := 22;
arr1[2] := 33;

Proc(arr1, arr2);
for i := 0 to Length(arr2) - 1 do str := Format('%s %d', [str, arr2[i]]);
ShowMessage(TrimLeft(str)); {11 22 33}
end;

end.

相关阅读 >>

Delphi之软件检测更新

Delphi 2009 查看所有 unicode 字符

Delphi net.httpclient正则批量获取网页代码中的数值

Delphi xe android 判断自己程序是否是前台程序

Delphi 自定义colorbox只显示指定颜色项目 colorbox显示中文颜色名称

Delphi firedac 下的 sqlite [4] - 创建数据库

Delphi gb2312 编码转义url字符串

Delphi access 导出 excel 表格

Delphi 如何在程序中动态设置墙纸(使用iactivedesktop接口)

Delphi 显示程序占用内存多少

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



打赏

取消

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

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

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

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

评论

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