13.3.0 Ofs

Declaration:: Function Ofs (Var X) : Longint;
Description:: Ofs returns the offset of the address of a variable. This function is only supported for compatibility. In Free Pascal, it returns always the complete address of the variable, since Free Pascal is a 32 bit compiler.
Errors:: None.
See also:: DSeg (484), CSeg (479), Seg (567), Ptr (549)

Listing: refex/ex44.pp

Program Example44;

{ Program to demonstrate the Ofs function. }

Var W : Pointer;

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