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;

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

标签：

原文地址：http://www.cnblogs.com/liujicai/p/5388038.html