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;