首页 > 代码库 > 修饰符(动态String数组篇)--- 常用 解除疑问。
修饰符(动态String数组篇)--- 常用 解除疑问。
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;var Form4: TForm4;implementation{$R *.dfm}procedure abc1(ap: TArray<string>);begin ap[0] := ‘李大嘴1‘;end;procedure abc2(const ap: TArray<string>);begin ap[0] := ‘李大嘴2‘;end;procedure abc3(var ap: TArray<string>);begin ap[0] := ‘李大嘴3‘;end;procedure abc4(out ap: TArray<string>);begin SetLength(ap, 3); //因为out的作用主要是输出,所以需要再这里进行分配内存,否则会报错 //.out 修饰的东西会被当成栈中一个不指向堆中任何数据的空指针. ap[0] := ‘李大嘴4‘;end;procedure TForm4.Button1Click(Sender: TObject);var vt: TArray<string>;begin SetLength(vt, 3); vt[0] := ‘小李飞刀‘; abc4(vt); Memo1.Lines.Add(vt[0]); //动态数组也不需要释放,delphi会自动释放,可以看下面的汇编截图,与接口的引用计数释放方式又不同. //ip.Free;end;procedure TForm4.FormCreate(Sender: TObject);begin ReportMemoryLeaksOnShutdown := True;end;end.
修饰符(动态String数组篇)--- 常用 解除疑问。
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。