PC Toledo

... ENDIF
FOR EACH cUF IN aUFList
IF hb_AScan( GetVizinhos(), { | e | e[1] == cUF } ) == 0
RETURN {}
ENDIF
NEXT
cUFOrigem := aUFList[ 1 ]
hb_ADel( aUFList, 1, .T. )
aUFDestino := aClone( aUFList )
aRotaOk := {}
DO WHILE .T.
aRotas := {}
FOR EACH cUF IN aUFDestino
AAdd( aRotas ...

... EXIT
ENDIF
FOR EACH xItem IN aList
IF xItem[1] == cUFDestino
RETURN xItem[2]
ENDIF
NEXT
cUF := aList[1][1]
aList2 := aList[1][2]
hb_ADel( aList, 1, .T. )
aTrajeto := GetVizinhos( cUF )
//? "vizinhos", nPass, hb_ValToExp( aTrajeto )
//Inkey(10)
FOR EACH xItem IN aTrajeto
aNewList ...

... NEXT
NEXT

// tentar mover pra onde foi chamada, se só chamada 1 vez

FOR EACH aItem IN aNewList DESCEND
IF MoveItem( aItem, aNewList )
hb_ADel( aNewList, aItem:__EnumIndex(), .T. )
ENDIF
NEXT

ShowList( aNewList, "" )

? "Fim"
Inkey(0)

RETURN

FUNCTION ShowList( aList, cText ...

... IF Empty( oBrowseSource:aArray )
RETURN Nil
ENDIF
AAdd( oBrowseTarget:aArray, AClone( oBrowseSource:aArray[ oBrowseSource:nCurrent ] ) )
hb_ADel( oBrowseSource:aArray, oBrowseSource:nCurrent, .T. )
oBrowseSource:Refresh()
oBrowseTarget:Refresh()
RETURN Nil

STATIC FUNCTION AllToBrowse ...

... IF Empty( oBrowseSource:aArray )
RETURN Nil
ENDIF
AAdd( oBrowseTarget:aArray, AClone( oBrowseSource:aArray[ oBrowseSource:nCurrent ] ) )
hb_ADel( oBrowseSource:aArray, oBrowseSource:nCurrent, .T. )
oBrowseSource:Refresh()
oBrowseTarget:Refresh()
RETURN Nil
}

@ 207, 147 BUTTON aControls ...

... BrwArrayDelElem( obrw )

* Delete array element

IF ( obrw:aArray == Nil ) .OR. Empty( obrw:aArray )
* Nothing to delete
RETURN NIL
ENDIF
Adel( obrw:aArray, obrw:nCurrent )
ASize( obrw:aArray, Len( obrw:aArray ) - 1 )
obrw:lChanged := .T.
obrw:Refresh()

RETURN Nil

STATIC FUNCTION ...

... x,...>] ) => AScan( <x> )
#xtranslate hb_RAScan( [<x,...>] ) => RAScan( <x> )
#xtranslate hb_AIns( [<x,...>] ) => AIns( <x> )
#xtranslate hb_ADel( [<x,...>] ) => ADel( <x> )
#xtranslate hb_At( [<x,...>] ) => At( <x> )

#xtranslate hb_DateTime( [<x,...>] ) => DateTime( <x> )
#xtranslate hb ...

... aControls[ i ] )
ENDDO

i := Ascan( ::aControls, { |o| hwg_Isptreq( o:handle,h ) } )
hwg_Sendmessage( h, WM_CLOSE, 0, 0 )
IF i != 0
ADel( ::aControls, i )
ASize( ::aControls, Len( ::aControls ) - 1 )
ENDIF


A idéia era apagar controles-filho antes de apagar o controle-pai, caso ...

... xDlg, @xStatusbar, "" ) )

RETURN Nil

METHOD ShowText( cText ) CLASS DlgTextMsgClass

LOCAL cItem

IF Len( ::aText ) = ::nMaxRow
ADel( ::aText, 1 )
::aText[ Len( ::aText ) ] := cText
ELSE
AAdd( ::aText, cText )
ENDIF
::cText := ""
FOR EACH cItem IN ::aText
::cText += cItem ...

... xDlg, @xStatusbar, "" ) )

RETURN Nil

METHOD ShowText( cText ) CLASS DlgTextMsgClass

LOCAL cItem

IF Len( ::aText ) = ::nMaxRow
ADel( ::aText, 1 )
::aText[ Len( ::aText ) ] := cText
ELSE
AAdd( ::aText, cText )
ENDIF
::cText := ""
FOR EACH cItem IN ::aText
::cText += cItem ...

... FOR EACH cFile IN aSignList
cCmd += "call assina " + cFile + hb_Eol()
NEXT
ENDIF

IF Len( aParamList ) != 0 .AND. aParamList[ 1 ] == "/cmd"
hb_ADel( aParamList, 1, .T. )
ELSE
IF hb_AScan( aParamList, { | e | e $ "|-w0|-w1|-w2|-w3|" } ) == 0
AAdd( aParamList, "-w3" )
ENDIF
IF hb_AScan ...

... FOR EACH cFile IN aSignList
cCmd += "call assina " + cFile + hb_Eol()
NEXT
ENDIF

IF Len( aParamList ) != 0 .AND. aParamList[ 1 ] == "/cmd"
hb_ADel( aParamList, 1, .T. )
ELSE
IF hb_AScan( aParamList, { | e | e $ "|-w0|-w1|-w2|-w3|" } ) == 0
AAdd( aParamList, "-w3" )
ENDIF
IF hb_AScan ...

... aqui que a solução que encontrei foi, ir diminuindo a Array depois de processado uma linha.
A medida que ia pegando os campos, ia cortando ela com adel...

Saudações,
Itamar M. Lins Jr.
Para busca em Array grandona (uma de 10000 rows), que é muito lento pq não é indexado, uso a função abaixo, que ...

Olá!
Teve uma vez aqui que a solução que encontrei foi, ir diminuindo a Array depois de processado uma linha.
A medida que ia pegando os campos, ia cortando ela com adel...

Saudações,
Itamar M. Lins Jr.

... 16711680

@ 020,85 BROWSE oBr1_BanCCG ARRAY SIZE 645,350 STYLE WS_TABSTOP FONT HFont():Add( '',0,-11,400,,,) ;
//ON INIT {|| IIF(aBanCCG[1,1]=0,ADEL(aBanCCG,1,.T.),),.T. }

oBr1_BanCCG:aArray := aBanCCG
CreateArList( oBr1_BanCCG, aBanCCG )

oBr1_BanCCG:aColumns[01]:heading := 'Código'
oBr1 ...