从Pascal中的子程序返回指针（Return pointer from subprograms in 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