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

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

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

Dispos() -- 释放内存

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　　更新时间：