ItemGetValue

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

Source

METHOD ItemGetValue( cItem AS STRING ) AS STRING PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL cRetVal AS STRING
LOCAL iItem AS DWORD
   TSTrace Enter
   iItem:=SELF:_LocateItem( cItem )
   IF LOGIC( _CAST, iItem )
      oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
      cRetVal:=oAtomizerItem:Value
      oAtomizerItem:=NULL_OBJECT
   ELSE
      cRetVal:=NULL_STRING
   END
   TSTrace Leave
RETURN cRetVal