mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-05 06:58:40 +02:00
11 lines
149 B
ObjectPascal
11 lines
149 B
ObjectPascal
Program Example44;
|
|
|
|
{ Program to demonstrate the Ofs function. }
|
|
|
|
Var W : Pointer;
|
|
|
|
|
|
begin
|
|
W:=Pointer(Ofs(W)); { W contains its own offset. }
|
|
end.
|