ItemGet

(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)

Source

METHOD ItemGet( cItem AS STRING ) AS TS_AtomizerItem PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL iItem AS DWORD
   TSTrace Enter
   IF LOGIC( _CAST, SELF:_ItemCreationBlocked )
      TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
      oAtomizerItem:=NULL_OBJECT
   ELSE
      iItem:=SELF:_LocateItem( cItem )
      IF LOGIC( _CAST, iItem )
         oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
      ELSE
         TSTrace Warning "LOGIC(_CAST,SELF:_LocateItem("+cItem+"))"
         oAtomizerItem:=NULL_OBJECT
      END
   END
   TSTrace Leave
RETURN oAtomizerItem