Combine segment and offset to pointer.
Source position: systemh.inc line 1272
function Ptr( |
sel: LongInt; |
off: LongInt |
):FarPointer; |
Ptr returns a pointer, pointing to the address specified by segment Sel and offset Off.
Remark: |
|
None.
|
Return address of a variable. |
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.