Moderador: Moderadores
FOR EACH oPage IN aPageList
? oPage:__EnumIndex, oPage:__EnumLast
NEXT
// The example compares a regular FOR..NEXT loop with a
// FOR EACH loop. FOR..NEXT uses a loop counter while FOR EACH
// does not. Instead, the "loop counter" is retrieved with
// function HB_EnumIndex().
PROCEDURE Main
LOCAL aArray1 := { "A", "B", "C" }
LOCAL aArray2 := { "a", "b", "c" }
LOCAL i, cValue
CLS
? "FOR loop"
FOR i:=1 TO Len( aArray1 )
? i, aArray1[i]
IF i == 3
AAdd( aArray1, "D" )
ENDIF
NEXT
?
? "FOR EACH loop"
FOR EACH cValue IN aArray2
? HB_EnumIndex(), cValue
IF HB_EnumIndex() == 3
AAdd( aArray2, "d" )
ENDIF
NEXT
RETURN
alxsts escreveu:No xHarbour, tem na forma de função: Hb_EnumIndex().
FOR EACH SalaDeAula IN Escola
FOR EACH Aluno IN SalaDeAula
? "aluno ", Aluno:__EnumIndex, "sala", SalaDeAula:__EnumIndex
NEXT
NEXT
JoséQuintas escreveu:Então isto seria impossÃvel no Xharbour...
LOCAL nEnum
FOR EACH SalaDeAula IN Escola
nEnum := hb_EnumIndex()
FOR EACH Aluno IN SalaDeAula
? "aluno ", hb_EnumIndex(), "sala", nEnum
NEXT
NEXT
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes