ItemIndex
(Available in 00 TS Tools(Base) - TS_Tools_PointerSafe)
Purpose
Get the 'ItemIndex'
Syntax
? oPointerSafe:ItemIndex
Description
Get the 'ItemIndex', this value is provided for the application programmer and can be used as an index to a actual item of stored data. The methods 'ItemNext()', 'ItemPrevious()', 'ItemFirst()' and 'ItemLast()' can be used to iterate the 'array' of data items.
Returns
dwItemIndex
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
pItem:=oPointerSafe:ItemNext(