Skip to content

    Seg

    Return segment.

    Declaration

    Source position: system.fpd line 64

    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 uses a flat 32/64 bit memory model. In such a memory model segments have no meaning.

    Errors

    None.

    See also

    Name Description
    DSeg Return data segment.
    CSeg Return code segment.
    Ofs Return offset of a variable.
    Ptr Combine segment and offset to pointer.

    Example

    Program Example60;

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

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