TPtrWrapper¶

type
  TPtrWrapper = record
    constructor Create(AValue: PtrInt); overload;
    constructor Create(AValue: Pointer); overload;
    function ToPointer : Pointer;
    function ToInteger : PtrInt;
    class property NilValue: TPtrWrapper; {r}
    class operator =(Left: TPtrWrapper; Right: TPtrWrapper) : Boolean;
    property Value: Pointer; {rw}
  end;