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