[next] [prev] [prev-tail] [tail] [up]

#### 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.

[next] [prev] [prev-tail] [front] [up]