PC Toledo

Código: Selecionar todos

FOR EACH oPage IN aPageList
   ? oPage:__EnumIndex, oPage:__EnumLast
NEXT

Código: Selecionar todos

// 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

Código: Selecionar todos

FOR EACH SalaDeAula IN Escola
   FOR EACH Aluno IN SalaDeAula
      ? "aluno ", Aluno:__EnumIndex, "sala", SalaDeAula:__EnumIndex
   NEXT
NEXT

Código: Selecionar todos

LOCAL nEnum

FOR EACH SalaDeAula IN Escola
   nEnum := hb_EnumIndex()
   FOR EACH Aluno IN SalaDeAula
      ? "aluno ", hb_EnumIndex(), "sala", nEnum 
   NEXT
NEXT