ItemPrevious
(Available in 00 TS Tools(Base) - TS_Tools_PointerSafe)
Purpose
Get a pointer to the previous item
Syntax
pItemPointer:=oPointerSafe:ItemPrevious( [LOGIC] )
Arguments
Description
Get a pointer to the previous item, This method is provided for the application programmer and can be used to navigate ( iterate ) the data items. The properties 'ItemCount' and 'ItemIndex' are used to initalize the number of items and to set the index.
Returns
pRetVal = PTR
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 )