EvalString

(Available in 00 TS Base(Base) - TS_Base_0_Traverse)

Source

METHOD EvalString( cItem AS STRING ) AS VOID PASCAL CLASS TS_Traverse
   SELF:Strings+=1U
   IF cItem==NULL_STRING
      SELF:NullStrings+=1U
   END
   IF SELF:_Profiling
      IF LOGIC( _CAST, cItem )
         SELF:_ProfileAddString( "C" )
      ELSE
         SELF:_ProfileAddString( "c" )
      END
   END
RETURN