结构类型(2)
结构指针
指针
指针是存放指定类型(或未定义类型)变量内存地址的变量,因此指针间接引用一个值。定义指针不需用特定的关键字,而用一个特殊字符,这个特殊字符是脱字符号(^),见下例:
type PointerToInt = ^Integer;
一旦你定义了指针变量,你就可以用@ 符号把另一个相同类型变量的地址赋给它。见下例:
var P: ^Integer; X: Integer; begin P := @X; // change the value in two different ways X := 10; P^ := 20;
如果定义了一个指针P,那么P表示指针所指向的内存地址,而P^表示内存所存储的实际内容。因此,在上面的代码中, P^ 与X相等。
除了表示已分配内存的地址外,指针还能通过New 例程在堆中动态分配内存,不过当你不需要这个指针时,你也必须调用Dispose 例程释放你动态分配的内存。
var P: ^Integer; begin // initialization New (P); // operations P^ := 20; ShowMessage (IntToStr (P^)); // termination Dispose (P); end;
如果指针没有值,你可以把nil 赋给它。这样,你可以通过检查指针是否为nil 判断指针当前是否引用一个值。这经常会用到,因为访问一个空指针的值会引起一个访问冲突错误,也就是大家知道的“一般保护错”(GPF)。见下例:
procedure TFormGPF.BtnGpfClick(Sender: TObject); var P: ^Integer; begin P := nil; ShowMessage (IntToStr (P^)); end; -------------------------------------------------------------------------------------------------
以下为万一博客
typeTRec = record {定义结构 TRec}
name: string[12];
age: Word;
end;
TPRec = ^TRec; {定义 TRec 结构的指针类型 TPRec}
var Rec: TRec; {声明结构变量}
PRec1,PRec2: TPRec; {声明 TPRec 指针变量}
PRec3: ^TRec; {声明 TRec 结构的指针变量, 现在 PRec1 与 PRec3 是不同类型的变量}
P: Pointer; {声明无类型指针}
//通过结构指针访问结构
procedure TForm1.Button1Click(Sender: TObject);
begin
Rec.name := '张三';
Rec.age := 18;
PRec1 := @Rec; {把 Rec 的地址告诉 PRec1}
{本来应该这样访问}
ShowMessage(PRec1^.name); {张三}
{Delphi 允许这样简单使用结构指针}
ShowMessage(PRec1.name); {张三}
{如果我们通过指针修改了数据}
PRec1.name := '李四';
{那么}
ShowMessage(Rec.name); {李四}
{因为 PRec1 和 Rec 所指的是同一个数据}
end;
//如果是单独使用指针, 必须先给内存
procedure TForm1.Button2Click(Sender: TObject);
begin
GetMem(PRec2, SizeOf(TRec));
PRec2.name := '王五';
PRec2.age := 9;
ShowMessage(PRec2.name); {王五}
{手工给的内存, 必须手工释放}
FreeMem(PRec2);
end;
//虽是同一个结构的指针, 但还不是一个类型
procedure TForm1.Button3Click(Sender: TObject);
begin
Rec.name := '孙六';
Rec.age := 16;
{把 Rec 的地址给属于 ^Rec 类型的 PRec3 指针}
PRec3 := @Rec;
ShowMessage(PRec3.name); {孙六}
{如果要把 PRec3 知道的值告诉 PRec1, 需要类型转换} PRec1 := TPRec(PRec3); ShowMessage(PRec1.name); {孙六}
{反过来想, 如果要把 PRec1 知道的值告诉 PRec3 呢?}
Rec.name := '赵七';
Rec.age := 24;
PRec1 := @Rec;
ShowMessage(PRec1.name); {赵七}
{这样转换}
TPRec(PRec3) := PRec1;
ShowMessage(PRec3.name); {赵七}
end;
//用无类型指针读写 TRec 中的数据
procedure TForm1.Button4Click(Sender: TObject);
begin
Rec.name := '杜八';
Rec.age := 36;
P := @Rec;
{赋值}
TPRec(P).name := '侯九';
{取值}
ShowMessage(TPRec(P).name); {侯九}
end;