Am 09.04.2006 um 06:43 schrieb Hans-Georg:
Dim Found() As Object
For Each Obj As Object In Me.Data
For Each Item As SearchItem In Me.ItemStore
If Item.Found(Obj) Then Found.Append Obj
Next
Next
That should have been a basic "or" search (only one criterion should
be matched). It has a small but stupid bug so here again:
Dim Found() As Object
For Each Obj As Object In Me.Data
For Each Item As SearchItem In Me.ItemStore
If Item.Found(Obj) Then
Found.Append Obj
Continue For Obj
End If
Next
Next
And a basic "and" search (all criteria should be matched)
Dim Found() As Object
For Each Obj As Object In Me.Data
For Each Item As SearchItem In Me.ItemStore
If Not Item.Found(Obj) Then
Continue For Obj
End If
Next
Found.Append Obj
Next
Hans-Georg
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
