RemoveWhites

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

Source

METHOD RemoveWhites( aAtomized AS ARRAY ) AS ARRAY PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItemThis AS TS_AtomizerItem
LOCAL zAtomized AS DWORD
LOCAL iAtomized AS DWORD
   TSTrace Enter
   SELF:_ItemCreationBlocked+=1U
   zAtomized:=ALen( aAtomized )
   iAtomized:=0U
   WHILE iAtomized<zAtomized
      iAtomized+=1U
      oAtomizerItemThis:=aAtomized[ iAtomized ]
      IF oAtomizerItemThis:IsWhite
         ADel( aAtomized, iAtomized )
         iAtomized-=1
         zAtomized-=1
      END
   END
   ASize( aAtomized, zAtomized )
   SELF:_ItemCreationBlocked-=1U
   TSTrace Leave
RETURN aAtomized