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;