fpcdocs/refex/ex44.pp


1
2
3
4
5
6
7
8
9
10

Program Example44;

{ Program to demonstrate the Ofs function. }

Var W : Pointer;


begin
  W:=Pointer(Ofs(W)); { W contains its own offset. }
end.