ItemDel

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

Source

METHOD ItemDel( cItem AS STRING ) AS LOGIC PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL lRetVal AS LOGIC
LOCAL iItem AS DWORD
   TSTrace Enter
   IF LOGIC( _CAST, SELF:_ItemCreationBlocked )
      TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
      lRetVal:=FALSE
   ELSE
      iItem:=SELF:_LocateItem( cItem )
      IF LOGIC( _CAST, iItem )
         oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
         IF SELF:_EscapeItem==oAtomizerItem
            TSTrace Warning "SELF:_EscapeItem==oAtomizerItem"
            SELF:_EscapeItem:=NULL_OBJECT
            SELF:_EscapeString:=NULL_STRING
         END
         IF SELF:_FirstWhite==oAtomizerItem
            TSTrace Warning "SELF:_FirstWhite==oAtomizerItem"
            SELF:_FirstWhite:=NULL_OBJECT
         END
         IF SELF:_ItemInComment==oAtomizerItem
            TSTrace Warning "SELF:_ItemInComment==oAtomizerItem"
            SELF:_ItemInComment:=NULL_OBJECT
         END
         IF SELF:_SpareWhite==oAtomizerItem
            TSTrace Warning "SELF:_SpareWhite==oAtomizerItem"
            SELF:_SpareWhite:=NULL_OBJECT
         END
         ADel( SELF:_ItemsAtivated, iItem )
         ASize( SELF:_ItemsAtivated, ALen( SELF:_ItemsAtivated  ; ...
        ... )-1U )
         SELF:_ItemCacheInfoDestroy( )
         iItem:=AScan( SELF:_ItemsCreated, oAtomizerItem )
         IF LOGIC( _CAST, iItem )
            ADel( SELF:_ItemsCreated, iItem )
            ASize( SELF:_ItemsCreated, ALen( SELF:_ItemsCreated  ; ...
           ... )-1U )
         ELSE
            TSTrace Warning "!LOGIC(_CAST,AScan(SELF:_ItemsCreated,oAtomizerItem))"
         END
         oAtomizerItem:Axit( )
         oAtomizerItem:=NULL_OBJECT
         lRetVal:=TRUE
      ELSE
         TSTrace Warning "LOGIC(_CAST,SELF:_LocateItem("+cItem+"))"
         lRetVal:=FALSE
      END
   END
   TSTrace Leave
RETURN lRetVal