Pascal-return-pointer-from-subprograms

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