登陆

Delphi 记录类型- 结构指针

转自:万一老师的 Delphi 博客

Delphi代码
  1. unit Unit1;   
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
  7.   Dialogs, StdCtrls;   
  8.   
  9. type  
  10.   TForm1 = class(TForm)   
  11.     Button1: TButton;   
  12.     Button2: TButton;   
  13.     Button3: TButton;   
  14.     Button4: TButton;   
  15.     procedure Button1Click(Sender: TObject);   
  16.     procedure Button2Click(Sender: TObject);   
  17.     procedure Button3Click(Sender: TObject);   
  18.     procedure Button4Click(Sender: TObject);   
  19.   end;   
  20.   
  21. var  
  22.   Form1: TForm1;   
  23.   
  24. implementation  
  25.   
  26. {$R *.dfm}  
  27.   
  28. type  
  29.   TRec = record       {定义结构 TRec}  
  30.     name: string[12];   
  31.     age: Word;   
  32.   end;   
  33.   TPRec = ^TRec;      {定义 TRec 结构的指针类型 TPRec}  
  34.   
  35. var  
  36.   Rec:         TRec;    {声明结构变量}  
  37.   PRec1,PRec2: TPRec;   {声明 TPRec 指针变量}  
  38.   PRec3:      ^TRec;    {声明 TRec 结构的指针变量, 现在 PRec1 与 PRec3 是不同类型的变量}  
  39.   P:           Pointer; {声明无类型指针}  
  40.   
  41.   
  42. //通过结构指针访问结构   
  43. procedure TForm1.Button1Click(Sender: TObject);   
  44. begin  
  45.   Rec.name := '张三';   
  46.   Rec.age := 18;   
  47.   
  48.   PRec1 := @Rec; {把 Rec 的地址告诉 PRec1}  
  49.   
  50.   {本来应该这样访问}  
  51.   ShowMessage(PRec1^.name); {张三}  
  52.   
  53.   {Delphi 允许这样简单使用结构指针}  
  54.   ShowMessage(PRec1.name);  {张三}  
  55.   
  56.   {如果我们通过指针修改了数据}  
  57.   PRec1.name := '李四';   
  58.   
  59.   {那么}  
  60.   ShowMessage(Rec.name); {李四}  
  61.   {因为 PRec1 和 Rec 所指的是同一个数据}  
  62. end;   
  63.   
  64.   
  65. //如果是单独使用指针, 必须先给内存   
  66. procedure TForm1.Button2Click(Sender: TObject);   
  67. begin  
  68.   GetMem(PRec2, SizeOf(TRec));   
  69.   PRec2.name := '王五';   
  70.   PRec2.age := 9;   
  71.   
  72.   ShowMessage(PRec2.name); {王五}  
  73.   
  74.   {手工给的内存, 必须手工释放}  
  75.   FreeMem(PRec2);   
  76. end;   
  77.   
  78.   
  79. //虽是同一个结构的指针, 但还不是一个类型   
  80. procedure TForm1.Button3Click(Sender: TObject);   
  81. begin  
  82.   Rec.name := '孙六';   
  83.   Rec.age := 16;   
  84.   
  85.   {把 Rec 的地址给属于 ^Rec 类型的 PRec3 指针}  
  86.   PRec3 := @Rec;   
  87.   ShowMessage(PRec3.name); {孙六}  
  88.   
  89.   {如果要把 PRec3 知道的值告诉 PRec1, 需要类型转换}  
  90.   PRec1 := TPRec(PRec3);   
  91.   ShowMessage(PRec1.name); {孙六}  
  92.   
  93.   
  94.   {反过来想, 如果要把 PRec1 知道的值告诉 PRec3 呢?}  
  95.   Rec.name := '赵七';   
  96.   Rec.age := 24;   
  97.   PRec1 := @Rec;   
  98.   ShowMessage(PRec1.name); {赵七}  
  99.   
  100.   {这样转换}  
  101.   TPRec(PRec3) := PRec1;   
  102.   ShowMessage(PRec3.name); {赵七}  
  103. end;   
  104.   
  105.   
  106. //用无类型指针读写 TRec 中的数据   
  107. procedure TForm1.Button4Click(Sender: TObject);   
  108. begin  
  109.   Rec.name := '杜八';   
  110.   Rec.age := 36;   
  111.   
  112.   P := @Rec;   
  113.   
  114.   {赋值}  
  115.   TPRec(P).name := '侯九';   
  116.   
  117.   {取值}  
  118.   ShowMessage(TPRec(P).name); {侯九}  
  119. end;   
  120.   
  121. end.   

« 上一篇 | 下一篇 »