Snippets

SeanB Array Filtering helper method. (non-idempotent)

Created by SeanB
FilterArray.pkg
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Filters an array according to a passed parameter. 
//e.g. 
//move (FilterArray(aStringList,self,get_is_uppercase)) to aStringList

Function FilterArray Global Variant[] aVariant Integer hObj Integer iMsg Returns Variant[] 
    Variant[] aReturn 
    Integer iPos 
    Integer iCopied 
    Integer iMax 
    Boolean isOK 
    
    Move (SizeOfArray(aVariant)) to iMax 
    For iPos from 0 to (iMax-1) 
        Get iMsg of hObj aVariant[iPos] to isOK 
        If (isOK) Begin 
            Move aVariant[iPos] to aVariant[iCopied]
            Move (iCopied+1) to iCopied 
        End
    Loop
    Move (ResizeArray(aVariant,iCopied)) to aVariant
    Function_Return aVariant
End_Function

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.