[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'System' (#rtl)

# Ptr

Combine segment and offset to pointer

## Declaration

Source position: systemh.inc line 1140

`function Ptr(`
`sel: LongInt;`
`off: LongInt`
`):FarPointer;`

## Description

Ptr returns a pointer, pointing to the address specified by segment Sel and offset Off.

Remark: | In the 32/64-bit flat-memory model supported by Free Pascal, this function is obsolete. The returned address is simply the offset.

## Errors

None.

## See also

Addr |  | Return address of a variable

## Example

    Program Example59;

    { Program to demonstrate the Ptr (compatibility) function. }

    type pString = ^String;

    Var P : pString;
        S : String;

    begin
      S:='Hello, World !';
      P:=pString(Ptr(Seg(S),Longint(Ofs(S))));
      {P now points to S !}
      Writeln (P^);
    end.

Documentation generated on: May 14 2021