IsDelimiterAndIsStringAndIsLeftOrRight

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

Source

ACCESS IsDelimiterAndIsStringAndIsLeftOrRight AS LOGIC PASCAL CLASS TS_AtomizerItem
LOCAL lIsDelimiterAndIsStringAndIsLeftOrRight AS LOGIC
   TSTrace Enter
   DO CASE
   CASE _AND( SELF:_TYPEOF, _TS_ATOMIZER_ITEMTYPE_DELIM_STRING_L  ; ...
  ... )==_TS_ATOMIZER_ITEMTYPE_DELIM_STRING_L
      lIsDelimiterAndIsStringAndIsLeftOrRight:=TRUE
   CASE _AND( SELF:_TYPEOF, _TS_ATOMIZER_ITEMTYPE_DELIM_STRING_R  ; ...
  ... )==_TS_ATOMIZER_ITEMTYPE_DELIM_STRING_R
      lIsDelimiterAndIsStringAndIsLeftOrRight:=TRUE
   OTHERWISE
      lIsDelimiterAndIsStringAndIsLeftOrRight:=FALSE
   END
   TSTrace Leave
RETURN lIsDelimiterAndIsStringAndIsLeftOrRight