Delphi 中记录类型 给记录指针赋值

  PPersion=^TPersion;
  TPersion=packed record
     Name:string;
     Sex:string;
     Clasee:string;
  end;

var
  persion:TPersion;
  PP:PPersion;

begin

   FillChar(persion,SizeOf(TPersion),);
   persion.Name:='liujicai ';
   persion.Sex:='';
   persion.Clasee:='';
   New(pp);
   pp^:=persion;

   ShowMessage(pp.Name);
   Dispose(PP);

end;