1. WIKI教程
2. 学习Pascal
3. Pascal - 指针(Pointers)

Pascal - 指针(Pointers)

Pascal中的指针简单易学。 使用指针可以更轻松地执行某些Pascal编程任务，并且在不使用指针的情况下无法执行其他任务（如动态内存分配）。 所以有必要学习指向成为一个完美的Pascal程序员。 让我们开始通过简单而简单的步骤学习它们。

如您所知，每个变量都是一个内存位置，每个内存位置都定义了其地址，可以使用指针变量的名称来访问它，该变量表示内存中的地址。

什么是指针？

指针是动态变量，其值是另一个变量的地址，即存储器位置的直接地址。 与任何变量或常量一样，必须先声明指针，然后才能使用它来存储任何变量地址。 指针变量声明的一般形式是 -

type
   ptr-identifier = ^base-variable-type;

指针类型通过在插入符号（^）的向上箭头前缀为基本类型来定义。 基类型定义数据项的类型。 一旦指针变量被定义为某种类型，它就可以仅指向该类型的数据项。 一旦定义了指针类型，我们就可以使用var声明来声明指针变量。

var
   p1, p2, ... : ptr-identifier;

以下是一些有效的指针声明 -

type
   Rptr = ^real;
   Cptr = ^char;
   Bptr = ^ Boolean;
   Aptr = ^array[1..5] of real;
   date-ptr = ^ date;
      Date = record
         Day: 1..31;
         Month: 1..12;
         Year: 1900..3000;
      End;
var
   a, b : Rptr;
   d: date-ptr;

通过使用相同的插入符号（^）取消引用指针变量。 例如，由指针rptr引用的关联变量是rptr^ 。 可以访问 -

rptr^ := 234.56;

以下示例将说明此概念 -

program exPointers;
var
   number: integer;
   iptr: ^integer;
begin
   number := 100;
   writeln('Number is: ', number);
   iptr := @number;
   writeln('iptr points to a value: ', iptr^);
   iptr^ := 200;
   writeln('Number is: ', number);
   writeln('iptr points to a value: ', iptr^);
end.

编译并执行上述代码时，会产生以下结果 -

Number is: 100
iptr points to a value: 100
Number is: 200
iptr points to a value: 200

在Pascal中打印内存地址

在Pascal中，我们可以使用地址运算符（@）将变量的地址分配给指针变量。 我们使用此指针来操作和访问数据项。 但是，如果由于某种原因，我们需要使用内存地址本身，我们需要将它存储在word类型变量中。

让我们扩展上面的例子来打印存储在指针iptr的内存地址 -

program exPointers;
var
   number: integer;
   iptr: ^integer;
   y: ^word;
begin
   number := 100;
   writeln('Number is: ', number);
   iptr := @number;
   writeln('iptr points to a value: ', iptr^);
   iptr^ := 200;
   writeln('Number is: ', number);
   writeln('iptr points to a value: ', iptr^);
   y := addr(iptr);
   writeln(y^); 
end.

编译并执行上述代码时，会产生以下结果 -

Number is: 100
iptr points to a value: 100
Number is: 200
iptr points to a value: 200
45504

NIL指针

如果您没有要分配的确切地址，将NIL值分配给指针变量始终是一个好习惯。 这是在变量声明时完成的。 指定NIL指针指向无处。 考虑以下程序 -

program exPointers;
var
   number: integer;
   iptr: ^integer;
   y: ^word;
begin
   iptr := nil;
   y := addr(iptr);
   writeln('the vaule of iptr is ', y^);
end.

编译并执行上述代码时，会产生以下结果 -

The value of ptr is 0

要检查nil指针，可以使用if语句，如下所示 -

if(ptr <> nill )then     (* succeeds if p is not null *)
if(ptr = nill)then    (* succeeds if p is null *)

Pascal指针细节

指针有很多但很简单的概念，它们对Pascal编程非常重要。 有以下几个重要的指针概念，Pascal程序员应该清楚 -

Sr.No	概念与描述
1	Pascal - 指针算术 可以在指针上使用四个算术运算符:递增，递减，+， -
2	Pascal - 指针数组 您可以定义数组以包含许多指针。
3	Pascal - 指向指针 Pascal允许您在指针上指针等等。
4	在Pascal中传递指向子程序的指针 通过引用或地址传递参数都可以通过被调用的子程序在调用子程序中更改传递的参数。
5	从Pascal中的子程序返回指针 Pascal允许子程序返回指针。