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, CSeg, Ofs, Ptr

Example

Program Example60;

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

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