「5.高级数据类型」7.指针

大家好，欢迎来到IT知识分享网。

7.指针

指针（Pointer）是一种比较特殊的数据类型，指针类型的变量称为指针变量。指针变量是用来存放其他变量内存地址的一种变量。

7.1指针类型的定义

定义指针类型的语法格式：

type <指针类型名> = ^<基类型>

其中，基类型可以为任意一种类型。

如：

type TPi = ^integer; TPr = ^Real; BytePtr = ^Byte; CityInfo = Record Name: String; lon: Real; lat: Real; end; CityPtr = ^CityInfo;

7.2指针变量的声明

声明指针变量与其他变量的声明方法一致，如：

var bp: BytePtr; cp: CityPtr; pi: TPi; pr: TPr;

也可以直接声明：

var bp: ^Byte; cp: ^CityInfo;

7.3指针变量的赋值

为指针变量赋值的语法格式如下：

<指针变量名> := @<标识符>

其中，@操作符用于获取操作数的内存地址，是一元操作符，@后面的操作数可以是变量、过程或函数等。如：

var m: integer; p: ^integer; begin p := @m; end;

当执行 p := @m; 语句后，指针p的内存单元存放的变量值是变量m的内存地址，此时，称指针p指向变量m。

当给指针变量赋值后，就可以用“指针变量名^”来表示所指向的内存单元。如：

p^ := 10;

这条赋值语句的作用与 m := 10;是相同的。

7.4无类型指针变量

无类型指针变量是指在声明指针变量时没有指明基类型，无类型指针在声明中只使用Pointer，声明格式如下：

var <指针变量名>: Pointer;

无类型指针变量的作用是它可以指向任何类型，但不能用指针变量后加“^”的方式来引用其指向的变量。要引用Pointer类型指针指向的变量，必须先将其转换成确定的类型。

下面，我们通过一个示例来说明指针变量的使用，界面如下图：

功能说明：

单击“开始”按钮，应用程序随机产生一个100以内的整数，用户输入一个整数，在标签中显示“大了”、”小了”，如果相等，则显示”猜对了，您猜了n次“。

示例代码：

var pany: pointer; value, count: integer; procedure TForm1.FormCreate(Sender: TObject); begin // 窗体创建事件 Button2.Enabled := false; end; procedure TForm1.Button1Click(Sender: TObject); begin // 开始按钮的单击事件 randomize; value := random(100); pany := @value; count := 0; Button1.Enabled := false; Button2.Enabled := true; end; procedure TForm1.Button2Click(Sender: TObject); var input: integer; pi: ^integer; begin // 确定按钮单击事件 input := strtoint(Edit1.Text); count := count + 1; pi := @input; if pi^ > pint(pany)^ then Label2.Caption := '大了'; if pi^ < pint(pany)^ then Label2.Caption := '小了'; if pi^ = pint(pany)^ then begin Label2.Caption := '猜对了，您猜了' + inttostr(count) + '次'; Button1.Enabled := true; Button2.Enabled := false; end; end;

从上面的代码中可以看出指针变量的使用方法，当需要访问无类型指针指向的变量的值的时，如上例中：

pint(pany)^

7.5字符指针类型

字符指针类型即Pchar数据类型，是一种指向以NULL字符结尾的字符串的指针。主要用于与外部函数（如Windows API函数）的兼容。

在Delphi中，可以把一个字符串直接赋值给一个Pchar类型的变量，如：

var ps: Pchar; begin ps := 'Hello world.' end;

上面的赋值语句首先申请一块内存区域，该区域中存储字符串’Hello world.’，并在最后加上NULL，然后ps指针指向这个区域。上面的程序段等价于：

var ps: Pchar; s: string; begin s := 'Hello world.' + #0; ps := @s; end;