IsStringAndIsLeftOrRight

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

Source

ACCESS IsStringAndIsLeftOrRight AS LOGIC PASCAL CLASS TS_AtomizerItem
LOCAL lIsStringAndIsLeftOrRight AS LOGIC
   TSTrace Enter
   DO CASE
   CASE _AND( SELF:_TYPEOF, _TS_ATOMIZER_ITEMTYPE_STRING_LEFT  ; ...
  ... )==_TS_ATOMIZER_ITEMTYPE_STRING_LEFT
      lIsStringAndIsLeftOrRight:=TRUE
   CASE _AND( SELF:_TYPEOF, _TS_ATOMIZER_ITEMTYPE_STRING_RIGHT  ; ...
  ... )==_TS_ATOMIZER_ITEMTYPE_STRING_RIGHT
      lIsStringAndIsLeftOrRight:=TRUE
   OTHERWISE
      lIsStringAndIsLeftOrRight:=FALSE
   END
   TSTrace Leave
RETURN lIsStringAndIsLeftOrRight