For...End for

A sintaxe formal da estrutura de controle de fluxo é:

O loop é um loop controlado por uma variável de contador:

• A variável contador Variável_Contador é uma variável numérica (Real, Inteiro, ou Inteiro Longo) que o loop  inicializa com o valor especificado por Expressão_inicial.

• Cada vez que o loop é executado, a variável contador é incrementada pelo valor especificado no valor opcional Expressão_incremento. Se você não especificar Expressão_incremento, a variável contador é incrementada por um (1), que é o padrão.

• Quando a variável contador passa o valor Expressão_final, o loop para.

Importante: A expressão numérica Expressão_inicial , Expressão_final e Expressão_incremento são avaliadas uma única vez no início do loop. Caso essas expressões sejam variáveis, mudar uma dessas variáveis no loop não afeta o loop.

Dica: No entanto, para fins especiais, você pode alterar o valor da variável contador Variável_Contador dentro do loop, o que afetará o loop

• Normalmente Expressão_inicial é inferior a Expressão_final.

• Se Expressão_inicial e Expressão_final são iguais, o loop será executado uma única vez.

• Se Expressão_inicial é maior do que Expressão_final, o loop não será executado a menos que você especifique um Expressão_incremento negativo. Veja os exemplos.

1. O exemplo a seguir executa 100 iterações:

2. O exemplo a seguir passa por todos os elementos do array umArray:

3. O exemplo a seguir passa por todos os caracteres do texto vtTexto:

For ($vlCar;1;Length(vtTexto))
`Faça alguma coisa com o caractere, se for um TAB
If (Character code(vtTexto[[$vlCar]])=Tab )
` ...
End if
End for

4. O exemplo a seguir percorre os registros selecionados para a tabela [umaTabela]:

FIRST RECORD([umaTabela])
For ($vlRegistro;1;Records in selection([umaTabela]))
` Faça alguma coisa com o registro
SEND RECORD([umaTabela])
` ...
` Vai para o próximo registro
NEXT RECORD([umaTabela])
End for

A maioria dos loops que você vai escrever em seus bancos de dados vai funcionar como os listados nesses exemplos.

Em alguns casos, você pode querer ter um loop cuja variável contador está diminuindo ao invés de aumentar. Para fazer isso, você deve especificar Expressão_inicial superior a Expressão_final e um Expressão_incremento negativo. Os exemplos a seguir faz a mesma coisa, como nos exemplos anteriores, mas em ordem inversa:

5. O exemplo a seguir executa 100 iterações:

6. O exemplo a seguir passa por todos os elementos do array umArray:

7. O exemplo a seguir passa por todos os caracteres do texto vtTexto:

8. O exemplo a seguir percorre os registros selecionados para a tabela [umaTabela]:

Se você precisar, você pode usar um Expressão_Incremento (positivo ou negativo), cujo valor absoluto é maior que um.

9. O loop seguinte refere-se apenas aos elementos do mesmo array umArray:

Observe que a expressão ((Size of Array(umArray)+1)\2)*2 trata os arrays pares e ímpares.

Em alguns casos, você pode querer executar um loop por um determinado número de iterações, mas, em seguida, sair do loop quando uma outra condição se tornar verdadeira. Para fazer isso, você pode testar esta condição dentro do loop e se ela se torna realidade, definir explicitamente a variável do contador para um valor que excede a expressão final.

10. No exemplo a seguir, uma seleção de registros é percorrida até que isso seja realmente feito ou até que a variável interprocesso <>vbWeStop, inicialmente definido como FALSE, se torne TRUE. Esta variável é tratada por um método de projeto ON EVENT CALL que lhe permite interromper a operação:

Vamos voltar para o primeiro exemplo :

O exemplo a seguir executa 100 iterações:

É interessante ver como o loop e como o loop realizam a mesma ação.

Aqui é o equivalente :

Aqui está o equivalente :

Conselho: O loop For...End for é geralmente mais rápido do que a e , porque 4D testa a condição internamente para cada ciclo do loop e incrementa o contador. Portanto, use o loop , sempre que possível.

Você pode utilizar Real, Inteiro, Inteiro Longo e variáveis, bem como as variáveis interprocesso, processo e contadores com uma variável local. Por loops longos e repetitivos, especialmente no modo compilado, use as variáveis locais Long Integer.

11. Aqui está um exemplo:

Você pode aninhar quantas estruturas de controle quanto você (razoavelmente) precisa. Isso inclui aninhamento para loops . Para evitar erros, certifique-se utilizar diferentes variáveis de contador para cada estrutura de looping

Aqui estão dois exemplos:

12. O exemplo a seguir passa por todos os elementos de um array bidimensional:

13. O exemplo a seguir cria um array de ponteiros para todos os campos de data presentes no banco de dados: