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