NameSym

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

Purpose

Get the name of the object

Syntax

? AsString( oSomeObject:NameSym )

Description

The 'NameSym' access can be used to identify objects, if this property is to be used, a symbolic name for the object should be passed to the init method.

Example

oSomeObject1:=SomeClass{ #One }
oSomeObject2:=SomeClass{ #Two }
SomeFunction( oSomeObject2 )

FUNCTION SomeFunction( oSomeObject AS TS_Root0 )...
   DO CAES
   CASE oSomeObject:NameSym==#One
      ...
   CASE oSomeObject:NameSym==#Two
      ...
   END
   RETURN...

Source

ACCESS NameSym AS SYMBOL PASCAL CLASS TS_Root0
LOCAL symNameSym AS SYMBOL
   TSTrace Enter
   symNameSym:=SELF:_NameSym
   TSTrace Leave
RETURN symNameSym