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;