Pascal 指针在子程序中

• 

  将指针传递给子程序

  指针变量可以作为参数传递给函数和过程参数。指针变量既可以作为值也可以作为变量参数传递；但是，当作为变量参数传递时，子程序可能会无意间更改指针的值，这将导致奇怪的结果。以下程序说明了传递指向函数的指针-

  
  program exPointertoFunctions;
  type
     iptr = ^integer;
  
  var
     i: integer;
     ptr: iptr;
  
  function getNumber(p: iptr): integer;
  var
     num: integer;
  
  begin
     num:=100;
     p:= @num;
     getNumber:=p^;
     end; 
  
  begin
     i := getNumber(ptr);
     
     writeln(' Here the pointer brings the value ', i);
  end.
  

  尝试一下

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

  
  Here the pointer brings the value: 100
  

• 

  子程序返回指针-

  一个函数可以返回一个指针作为其结果。以下程序说明了从函数返回指针-

  
  program exPointersFromFunctions;
  type
     ptr = ^integer;
  
  var
     i: integer;
     iptr: ptr;
  function getValue(var num: integer): ptr;
  
  begin
     getValue:= @num;
  end;
  
  begin
     i := 100;
     iptr := getValue(i);
     
     writeln('Value deferenced: ', iptr^);
  end.
  

  尝试一下

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

  
  Value dereferenced: 100