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

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;