(Available in 00 TS Tools(Base) - TS_Tools_PointerSafe)
Purpose
Delete a item
Syntax
lDeleted:=oPointerSafe:ItemDel( pItem )
Arguments
dwItemIndex
DWORD, Index of the data-item to delete.
Description
Delete a item, This method is provided for the application programmer and is used to delete data-items from the data-store. The number of data-items is decremented.
Returns
lDeleted = LOGIC
Example
METHOD UsingThePointerSafe( ) CLASS MyObject
LOCAL oPointerSafe AS TS_PointerSafe
LOCAL pItem AS PTR
oPointerSafe:=TS_PointerSafe{ SELF, 10, _SIZEOF( _WinGUID ) }
oPointerSafe:ItemAdd( TS_GUID_IDispatch( ) )
oPointerSafe:ItemAdd( TS_GUID_IUnknown( ) )
oPointerSafe:ItemAdd( TS_GUID_ITypeInfo( ) )
IF oPointerSafe:ItemLocate( TS_GUID_ITypeInfo( ) )
oPointerSafe:ItemDel( oPointerSafe:ItemIndex )
END
IF !oPointerSafe:ItemLocate( TS_GUID_ITypeInfo( ) )
oPointerSafe:ItemAdd( oPointerSafe:ItemIndex )
END
oPointerSafe:ItemFirst( )
WHILE pItem<>NULL_PTR
IF pItem<>NULL_PTR
SELF:UseItem( pItem )
END