转自：万一老师的 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.