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

 

 


var
  persion:TPersion;
  PP:PPersion;

begin

   FillChar(persion,SizeOf(TPersion),0);
   persion.Name:=‘liujicai ‘;
   persion.Sex:=‘2‘;
   persion.Clasee:=‘1‘;
   New(pp);
   pp^:=persion;

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

end;