13.3.0 Seg

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

Listing: refex/ex60.pp

Program Example60;

{ Program to demonstrate the Seg function. }
Var
W : Word;

begin
W:=Seg(W); { W contains its own Segment}
end.