首页 > 代码库 > 修饰符（动态数组篇）
修饰符（动态数组篇）
1.无修饰符----要看成员变量的类型，与基本类型不一致，是直接传基本类型的地址过来，并没有把基本类型的指针复制一份入栈，所以一旦修改就是修改原来的值。
2.const 修饰符 与 无修饰符一致。
3.var修饰符 与 上一致。
4.out修饰符（不要初始化，初始化也没有意义）
unit Unit4;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm4 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; /// <summary> /// 定义一个结构(测试这个结构的动态数组) /// </summary> TRen = record name: string; age: Integer; end;var Form4: TForm4;implementation{$R *.dfm}procedure abc1(ap: TArray<TRen>);begin ap[0].name := ‘李大嘴1‘; ap[0].age := 10;end;procedure abc2(const ap: TArray<TRen>);begin ap[0].name := ‘李大嘴2‘; ap[0].age := 10;end;procedure abc3(var ap: TArray<TRen>);begin ap[0].name := ‘李大嘴3‘; ap[0].age := 10;end;procedure abc4(out ap: TArray<TRen>);begin SetLength(ap, 3); //因为out的作用主要是输出,所以需要再这里进行分配内存,否则会报错 //.out 修饰的东西会被当成栈中一个不指向堆中任何数据的空指针. ap[0].name := ‘李大嘴4‘; ap[0].age := 10;end;procedure TForm4.Button1Click(Sender: TObject);var vt: TArray<TRen>;begin// SetLength(vt, 3);// vt[0].name := ‘小李飞刀‘;// vt[0].age := 18; abc4(vt); Memo1.Lines.Add(vt[0].name); Memo1.Lines.Add(vt[0].age.ToString); //动态数组也不需要释放,delphi会自动释放,可以看下面的汇编截图,与接口的引用计数释放方式又不同. //ip.Free;end;procedure TForm4.FormCreate(Sender: TObject);begin ReportMemoryLeaksOnShutdown := True;end;end.
修饰符（动态数组篇）
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。