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