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