wie hole ich aus einem Array nur die Elemente die einem "Filter" entsprechen
Code: Alles auswählen
FUNCTION ArrayFilter(cDLL)
LOCAL aALL := Get_Array()
LOCAL aRet := {}
LOCAL nStart := 1
LOCAL nPosi
DO WHILE .T.
nPosi := ASCAN(aALL,{|x| x[1] = cDLL },nStart)
IF nPosi > 0
AADD(aRet,aALL[nPosi])
nStart := nPosi+1
ELSE
EXIT
ENDIF
ENDDO
RETURN aRet