Pascal-return-pointer-from-subprograms

提供:Dev Guides
2020年6月22日 (月) 17:27時点におけるMaintenance script (トーク | 投稿記録)による版 (Imported from text file)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
移動先:案内検索

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