Pascal - 子程式返回指標

函式可以返回指標作為其結果。以下程式演示了從函式返回指標 −

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