EvalNumericFloat

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

Source

METHOD EvalNumericFloat( fItem AS FLOAT ) AS VOID PASCAL CLASS TS_Traverse
   SELF:NumericFloats+=1U
   IF !LOGIC( _CAST, fItem )
      SELF:NullNumericFloats+=1U
   END
   IF SELF:_Profiling
      IF LOGIC( _CAST, fItem ) .AND. fItem<>0.0
         SELF:_ProfileAddString( "F" )
      ELSE
         SELF:_ProfileAddString( "f" )
      END
   END
RETURN