Delphi 记录类型- 结构指针

转自：万一老师的 Delphi 博客

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