上一节:
下一节:

  Pascal 指针

  • 指针

    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中，我们可以使用地址运算符（@）将变量的地址分配给指针变量。我们使用该指针来操纵和访问数据项。但是，如果由于某种原因需要使用内存地址本身，则需要将其存储在单词类型变量中。让我们扩展以上示例以打印存储在指针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
50960

  • 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 vaule of iptr is 0
    要检查nil指针，可以使用以下if语句- 
    
if(ptr <> nill )then     (* succeeds if p is not null *)
if(ptr = nill)then    (* succeeds if p is null *)
上一节:
下一节: