Delphi System单元-New 和 Dispose -申请指针内存和释放

Delphi System单元-New 和 Dispose  -申请指针内存和释放

New() -- 申请/分配 内存

Dispos() -- 释放内存

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Type   TMyRec = record     {定义结构}     name: string[10];     age : Word;   end;   PMyRec = ^TMyRec;   {定义结构指针; 也可定义在结构前面，都一样}     {直接使用结构, 不用指针} var   R: TMyRec; begin   R.name := '滔Roy';   R.age := 100;   ShowMessage(Format('%s %d', [R.name, R.age])); {滔Roy 100} end;   {使用 结构指针} var   PR: PMyRec; begin   New(PR);            {分配内存}   PR^.name := '滔Roy';  //也可以简化表达  PR.name := '滔Roy';   PR^.age := 100;        //也可以简化表达  PR.age := 100;   ShowMessage(Format('%s %d', [PR^.name, PR^.age])); {PR.name, PR.age}{滔Roy 100}   Dispose(PR);        {释放内存} end;

 　

　　

创建时间：2020.08.07　　更新时间：