記録ポインタ割り当てにデルファイ型記録

  PPersion = ^ TPersion。
  TPersion = パック レコード
     名：文字列; 
     セックス：文字列; 
     Clasee：文字列;
  エンド; 

 

 


VaRの
  persion：TPersion。
  PP：PPersion。

開始

   FillChar（persion、にSizeOf（TPersion）、0 ）; 
   persion.Name： = ' liujicai ' ; 
   persion.Sex： = ' 2 ' ; 
   persion.Clasee： = ' 1 ' ; 
   新（PP）; 
   PP ^：= persion。

   ShowMessage（pp.Name）。
   （PP）を処分します。

エンド ;