Reference for package '#rtl'

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
CSeg Return code segment
DSeg Return data 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.