动态数组传递数据示例 - 回复 YinGaGa 的问题
16lz
2021-05-01
动态数组传递数据示例 - 回复 YinGaGa 的问题
问题来源: http://www.cnblogs.com/del/archive/2008/10/14/1310583.html#1673278
unit Unit1;interfaceuses 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.posted on 2009-10-16 14:03 万一 阅读(4742) 评论(22) 编辑 收藏©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,如需转载,请注明出处,否则将追究法律责任
更多相关文章
- 语法基础: 使用不同的数据类型标记数组
- 学 Win32 汇编[29] - 串指令: MOVS*、CMPS*、SCAS*、LODS*、REP
- 学用 ASP.Net 之 "字符串" (3): string 类的非扩展方法
- 学 Win32 汇编[15]: LOOP 与标号
- 0425PHP编程作业
- php入门之 js数组遍历与php的区别
- C语言中易错的地方(一)
- 冷月手撕408之数据结构(3)-顺序表
- css详解background八大属性及其含义