PC Toledo

... structure" )
? oXmlNode:cName

oXmlNode := oXmlDoc:findFirst( "field" )

DO WHILE oXmlNode <> NIL
// attributes are stored in a hash
AAdd( aStruct, { oXmlNode:aAttributes[ "name" ] , ;
oXmlNode:aAttributes[ "type" ] , ;
Val( oXmlNode:aAttributes[ "len" ] ), ;
Val( oXmlNode ...

... lOk := .T.

IF Empty( cPathLeto )
RETURN .F.
ENDIF

BEGIN SEQUENCE

// 1) cria DBF se não existir
IF ! leto_file( cPathLeto + "psw.dbf" )

AAdd( aStru, { "USUARIO", "C", 10, 0 } )
AAdd( aStru, { "SENHA", "C", 10, 0 } )
AAdd( aStru, { "GRUPO", "C", 20, 0 } )
AAdd( aStru, { "ACESSO", "C ...

... IF PQresultStatus( res ) != PGRES_TUPLES_OK
? "Erro SQL:"
? PQresultErrorMessage( res )
RETURN aRet
ENDIF

FOR n := 1 TO PQntuples( res )
AAdd( aRet, DbRow( res, n ) )
NEXT

RETURN aRet

/* ========================================================= */


FUNCTION SqlFilter( conn, cTabela ...

... os botões, pode facilitar.
Não tenho certeza se precisa mexer nos CHs pra aceitar igual HMG Extended.


aButtons := {}
...
DEFINE BUTTON ( "xxx" )
AAdd( aButtons, "XXX" )
...


A partir daí, pode verificar o array, como um array comum.
Não se esqueça que, se tiver exclusão no array, melhor ...

... ponteiro,2]>0 .AND. matriz_Botao_Artigo[ponteiro,2]<2
Carrega_Botoes_Artigos( aNomeButton )
matriz_Botao_Artigo[ponteiro,2] :=2
ENDIF
ELSE
AADD(matriz_Botao_Artigo, { aNomeButton, 1 })
ENDIF
ENDIF
Return Nil
Pergunto-lhe, acha que devo fazer um RELEASE aos botões quando mudo de grupo ou ...

... msxml5r.dll', 'capicom.dll' }

// 1. Converter string em bytes (igual Encoding.GetBytes)
aBytes := {}
FOR i := 1 TO Len( cTextoOriginal )
AAdd( aBytes, Asc( SubStr( cTextoOriginal, i, 1 ) ) )
NEXT

// 2. Criar hash SHA1 dos bytes
aHash := hb_SHA1( aBytes )

oXml ...

... aCB[i,2] == cId
EXIT
ENDIF
NEXT
IF Empty( block )
IF i <= nLen
ADel( ::aCB, i )
::aCB := ASize( ::aCB, nLen - 1 )
ENDIF
ELSE
IF i > nLen
AAdd( ::aCB, { nId, cId, block } )
ELSE
::aCB[i,3] := block
ENDIF
ENDIF

RETURN Nil

METHOD Get( nId ) CLASS HPaintCB

LOCAL i, nLen, aRes

IF ...

... aRotaOk
LOCAL cUFOrigem, aItem, cUF, aRotas, aUFList := {}

FOR EACH cUF IN aUFSource
IF hb_AScan( aUFList, { | e | e == cUF } ) == 0
AAdd( aUFList, cUF )
ENDIF
NEXT

IF Len( aUFList ) == 0
RETURN {}
ENDIF
IF Len( aUFList ) == 1
RETURN { aUFList[1] }
ENDIF
FOR EACH cUF IN ...

... cUF )
//? "vizinhos", nPass, hb_ValToExp( aTrajeto )
//Inkey(10)
FOR EACH xItem IN aTrajeto
aNewList := {}
FOR EACH xItem2 IN aList2
AAdd( aNewList, xItem2 )
NEXT
AAdd( aNewList, xItem )
//? "adicionado", nPass, hb_ValToExp( { xItem, aNewList } )
//Inkey(10)
AAdd( aList, { xItem ...

... aFieldList, { | e | e[1] == aField[ DBS_NAME ] } )
IF nPos == 0
//? aField[ DBS_NAME ], aField[ DBS_TYPE ], aField[ DBS_LEN ], aField[ DBS_DEC ]
AAdd( aFieldList, { aField[ DBS_NAME ], 0 } )
nPos := Len( aFieldList )
ENDIF
aFieldList[ nPos, 2 ] += 1
NEXT
USE
NEXT
ASort( aFieldList,,, { | a ...

... pro contrário

FOR EACH aItem IN aPrgList
FOR EACH aItem2 IN aItem[3]
nPos := hb_AScan( aNewList, { | e | e[1] == aItem2[1] } )
IF nPos == 0
AAdd( aNewList, { aItem2[1], {} } )
nPos := Len( aNewList )
ENDIF
AAdd( aNewList[ nPos ][ 2 ], { aItem[1], {} } )
NEXT
NEXT

// tentar mover pra ...

... cLine ) + 1 )
cLine := Val( Substr( cLine, 1, At( ":", cLine ) - 1 ) )
nPos := hb_AScan( aPrgList, { | e | e[1] == cFile } )
IF nPos == 0
AAdd( aPrgList, { cFile, {} } )
nPos := Len( aPrgList )
ENDIF
AAdd( aPrgList[ nPos ][ 2 ], cLine )
ENDIF
NEXT
hb_MemoWrit( "test.txt", hb ...

... desconto
hNfe:Total:vlricms := nfe->vlricms

hNfe:Itens := {} // populando itens com array ou hash com código do item

For each hitem in hitens

Aadd(hnfe:itens, { hitem:codigo, hitem:Qtd, hitem:prc } )

// ou se tivesse criado hNfe:itens := CreateObj()
//
// hnfe:itens[nfeitens->codigo ...

... Tenho um sistema legado q gostaria de resolver essa questão q ocorre eventualmente em determinadas rotinas.

LOCAL cString := "", i, adados := {}
FOR i := 1 TO 1000000
cString += "mais dados aqui"

aadd(adados, { i, {i, cString} } )

/*
IF i % 1000 == 0
hb_gcAll(.T.)
ENDIF
*/
NEXT

... ENDIF
NEXT

RETURN ASort( aRetVal )


STATIC FUNCTION AddIfUnique( aList, cName )

IF ! Empty( cName ) .AND. AScan( aList, cName, , , .T. ) == 0
AAdd( aList, cName )
ENDIF

RETURN Nil


E mais outros:

FUNCTION AllFormNames()

LOCAL aList := {}, oForm

FOR EACH oForm IN ohmgApp():AllForms ...