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.