unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}Type  TMyRec = record     {定义结构}    name: string[8];    age : Word;  end;  PMyRec = ^TMyRec;   {定义结构指针}var  pr: PMyRec;procedure TForm1.FormCreate(Sender: TObject);begin  {同时分配 3 个结构的内存; 此时的三个结构在内存中是连续的}  GetMem(pr, SizeOf(TMyRec) * 3);  {此时 pr 指向第一个结构, 赋值}  pr.name := '张三';  pr.age := 11;  {让 pr 指向第二个结构, 赋值}  Inc(pr);  pr.name := '李四';  pr.age := 22;  {让 pr 指向第三个结构, 赋值}  Inc(pr);  pr.name := '王五';  pr.age := 33;  {先回到第一个结构, 然后依次读取}  Dec(pr, 2);  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {张三 11 岁}  Inc(pr);  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {李四 22 岁}  Inc(pr);  ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {王五 33 岁}  {从第一个结构, 清除 3 个结构大小的内存, 这样就删除了上面三个结构}  Dec(pr, 2);  FreeMem(pr, SizeOf(pr^) * 3); {SizeOf(TMyRec)  和 SizeOf(pr^) 是一样的}end;end.