Get
(Available in 01 TS COM - TS_COM_StaticObjectsRepo)
Source
METHOD Get( hSORID AS PTR ) AS OBJECT PASCAL CLASS TS_StaticObjectsRepo
LOCAL pSORData AS _TS_SORData
LOCAL pbSORID AS BYTE PTR
LOCAL oObject AS OBJECT
LOCAL dwSORID AS DWORD
LOCAL pItem AS PTR
LOCAL X AS DWORD
TSTrace Enter
dwSORID:=DWORD( _CAST, hSORID )
IF LOGIC( _CAST, SELF:_SORData )
_TS_DynLock( PSZ( _CAST, __ENTITY__ ) )
pItem:=NULL_PTR
pbSORID:=@dwSORID
pSORData:=SELF:_SORData
IF LOGIC( _CAST, pSORData )
X:=pbSORID[ 1U ]
IF X>=1U .AND. X<=