Edit

Estruturas de loop

Estruturas de loop repetem uma sequência de declarações até que uma condição seja atingida ou até que alcance um certo número de vezes.

While...End while

A sintaxe da estrutura condicional While... End while é:

 While(Boolean_Expression)
    statement(s)
    {break}  
    {continue}
 End while

Um loop While... End while executa as instruções dentro do loop enquanto a expressão booleana for TRUE. Comprova a expressão booleana ao início do loop e não entra no loop se a expressão for FALSE.

The break and continue statements are described below.

É comum inicializar o valor provado na expressão booleana imediatamente antes de entrar no loop While... End while. Inicializar o valor significa atribuir o valor para algo apropriado, geralmente para que a expressão booleana seja TRUE e While... End while execute o loop.

O valor da expressão booleana deve poder ser modificado por um elemento dentro do loop, do contrário será executado indefinidamente. O próximo loop continua para sempre porque NeverStop sempre será TRUE:

 NeverStop:=True
 While(NeverStop)
 End while

Se você se encontrar em uma situação desse tipo, na qual um método fica executando de forma descontrolada, pode usar as funções de rastreamento para parar o loop e rastrear o problema. Para saber mais sobre o rastreio de um método veja a página Error handling.

Exemplo

 CONFIRM("Add a new record?") //o usuário quer adicionar um registro?
 While(OK=1) //Loop enquanto o usuário quiser
    ADD RECORD([aTable]) //Adiciona um novo registro
 End while //O loop sempre termina com End while

Nesse exemplo, o valor da variável sistema OK é estabelecida pelo comando CONFIRM antes de que inicia o loop. Se o usuário clicar no botão OK da caixa de diálogo de confirmação, a variável do sistema OK toma o valor 1 e se inicia o loop. Senão, a variável de sistema OK toma o valor 0 e se omite o loop. Quando iniciar o loop, o comando ADD RECORD permite continuar a execução do loop porque se define a variável sistema OK em 1 quando o usuário salvar o registro. Quando o usuário cancelar (não salvar) o último registro, a variável do sistema OK é estabelecida como 0 e o loop para.

Repeat...Until

A sintaxe da estrutura condicional Repeat... Until é:

Repeat
    statement(s)
    {break}  
    {continue}
Until(Boolean_Expression)

A outra diferença com um loop Repeat... Until é que o loop continua até que a expressão seja TRUE.

Um loop Repeat... Until é similar a um loop While... End while, exceto que comprova a expressão booleana depois do loop e não antes.

The break and continue statements are described below.

Exemplo

Compare o exemplo abaixo com o exemplo para o lopp While... End while. Lembre que a expressão booleana não precisa ser iniciada - não há um comando CONFIRM para inicializar a variável OK.

 Repeat
    ADD RECORD([aTable])
 Until(OK=0)

For...End for

A sintaxe da estrutura condicional For... End for é:

For(Counter_Variable;Start_Expression;End_Expression{;Increment_Expression})
   statement(s)
    {break}  
    {continue}
End for

O loop For... End for é um loop controlado por um contador:

• A variável contador Counter_Variable é uma variável numérica (Real ou Long Integer) iniciada por For...End for com o valor especificado por Start_Expression.
• Cada vez que se executa o loop, a variável do contador se incrementa no valor especificado no valor opcional Increment_Expression. Se não especificar Increment_Expression, a variável contadora é incrementada por um (1), que é o padrão.
• Quando a variável contador passar o valor End_Expression daí o loop para.

Importante: as expressões numéricas Start_Expression, End_Expression e Increment_Expression são avaliadas apenas uma vez no começo do loop. Se essas expressões forem variáveis, mudar uma deles dentro do loop não vai afetar o loop.

Dicas: Entretanto, para fins especiais, pode mudar o valor da variável Counter_Variable dentro do loop; isso afetará o loop.

• Geralmente Start_Expression pe menor que End_Expression.
• Se Start_Expression e End_Expression forem iguais, o loop se executará só uma vez.
• Se Start_Expression for maior que End_Expression, o loop não vai executar a não ser que especifique uma Increment_Expression negativa. Ver os exemplos.

The break and continue statements are described below.

Exemplos básicos

1. O seguinte exemplo executa 100 iterações:

 For(vCounter;1;100)
  //Faz algo
 End for

2. O exemplo abaixo percorre todos os elementos no array anArray:

 For($vlElem;1;Size of array(anArray))
  //Fazer algo com o elemento
    anArray{$vlElem}:=...
 End for

3. O exemplo abaixo recorre todos os caracteres do texto vtSomeText:

 For($vlChar;1;Length(vtSomeText))
  //Faz algo com o caractere se for uma TAB
    If(Character code(vtSomeText[[$vlChar]])=Tab)
  //...
    End if
 End for

4. O exemplo abaixo recorre os registros selecionados para a tabela [aTable]:

 FIRST RECORD([aTable])
 For($vlRecord;1;Records in selection([aTable]))
  //Faz algo com o registro
    SEND RECORD([aTable])
  //...
  //Vai para o próximo registro
    NEXT RECORD([aTable])
 End for

A maioria dos loops For... End for que escreverá em seus projetos vão parecer com aqueles listados nesses exemplos.

Diminuir a variável contador

Em alguns casos, pode querer ter um loop cuja variável de contador seja decrescente ao invés de crescente. Para fazer isso, deve especificar Start_Expression maior que End_Expression e Increment_Expression deve ser negativa. Os exemplos abaixo fazem a mesma coisa que nos exemplos acima, mas na ordem inversa:

5. O seguinte exemplo executa 100 iterações:

 For(vCounter;100;1;-1)
  //Faz algo
 End for

6. O exemplo abaixo percorre todos os elementos no array anArray:

 For($vlElem;Size of array(anArray);1;-1)
  //Faz algo com o elemento
    anArray{$vlElem}:=...
 End for

7. O exemplo abaixo recorre todos os caracteres do texto vtSomeText:

 For($vlChar;Length(vtSomeText);1;-1)
  //Faz algo com o caractere se for uma TAB
    If(Character code(vtSomeText[[$vlChar]])=Tab)
  //...
    End if
 End for

8. O exemplo abaixo recorre os registros selecionados para a tabela [aTable]:

 LAST RECORD([aTable])
 For($vlRecord;Records in selection([aTable]);1;-1)
  //Faz algo com o registro
    SEND RECORD([aTable])
  //...
  //Ir ao registro anterior
    PREVIOUS RECORD([aTable])
 End for

Incrementar a variável do contador em mais de um

Se precisar, pode usar uma Increment_Expression (positiva ou negativa) cujo valor absoluto seja maior que um.

9. O loop a seguir aborda só os elementos pares do array anArray:

 For($vlElem;2;Size of array(anArray);2)
  //Faz algo com o elemento #2,#4...#2n
    anArray{$vlElem}:=...
 End for

Comparação de estruturas de loop

Voltamos ao primeiro exemplo de For... End for. O seguinte exemplo executa 100 iterações:

 For(vCounter;1;100)
  //Faz algo
 End for

Aquí está o loop equivalente Repeat... Until:

 $i:=1 //Initializa o contador
 While($i<=100) //Loop 100 vezes
  //Faz algo
    $i:=$i+1 //Precisa incrementar o contador
 End while

Aqui está o loop equivalente While... End while:

 $i:=1 //Initializa o contador
 Repeat
  //Faz algo
    $i:=$i+1 //Precisa incrementar o contador
 Until($i=100) //Loop 100 vezes

Dica: o loop For... End for é geralmente mais rápido que os loops While... End while ou Repeat... Until, porque 4D comprova a condição internamente em cada ciclo do loop e incrementa o contador. Portanto, utilize o loop For... End for sempre que for possível.

Otimizar a execução dos loops For... End for

Pode utilizar variáveis reais e inteiras, assim como contadores interprocesso, de processo e de variáveis locais. Para loops repetitivos longos, especialmente em modo compilado, use variáveis locais de tipo Inteiro longo.

10. Aqui um exemplo simples:

 C_LONGINT($vlCounter) //usa variáveis locais Long Integer
 For($vlCounter;1;10000)
  //Faz algo
 End for

Estruturas For...End aninhadas

Pode aninhar tantas estruturas de controle (dentro do razoável) como precisar. Isso inclui o aninhamento de loops For... End for. Para evitar erros, tenha certeza de usar variáveis contador diferentes para cada estrutura de looping.

Aqui são dois exemplos:

1. O exemplo abaixo percorre todos os elementos em um array de duas dimensões:

 For($vlElem;1;Size of array(anArray))
  //...
  //Faz algo com a linha
  //...
    For($vlSubElem;1;Size of array(anArray{$vlElem}))
  //Faz algo com o elemento
       anArray{$vlElem}{$vlSubElem}:=...
    End for
 End for

2. O seguinte exemplo constrói um array de ponteiros a todos os campos de data presentes no banco:

 ARRAY POINTER($apDateFields;0)
 $vlElem:=0
 For($vlTable;1;Get last table number)
    If(Is table number valid($vlTable))
       For($vlField;1;Get last field number($vlTable))
          If(Is field number valid($vlTable;$vlField))
             $vpField:=Field($vlTable;$vlField)
             If(Type($vpField->)=Is date)
                $vlElem:=$vlElem+1
                INSERT IN ARRAY($apDateFields;$vlElem)
                $apDateFields{$vlElem}:=$vpField
             End if
          End if
       End for
    End if
 End for

For each...End for each

A sintaxe da estrutura condicional For each... End for each é:

 For each(Current_Item;Expression{;begin{;end}}){Until|While}(Boolean_Expression)}
    statement(s)
    {break}  
    {continue}
 End for each

A estrutura For each... End for each faz uma iteração sobre um Elemento_atual especificado sobre todos os valores de Expressão. O tipo elemento_atual depende do tipo Expression. O loop For each... End for each pode iterar através de três tipos de Expressão:

• collections: loop por cada elemento da coleção,
• seleções de entidades: loop em cada entidade,
• objetos: loop em cada propriedade do objeto.

A tabela abaixo compara os três tipos de For each... End for each:

	Loop através da coleção	Loop nas seleções de entidades	Loop nos objetos
Tipo Current_Item	Variável do mesmo tipo que os elementos da coleção	Entity	Variável texto
Tipos de expressões	Coleção (com elementos do mesmo tipo)	Seleção de entidades	Objeto
Número de loops (por padrão)	Número de elementos da coleção	Número de entidades na seleção	Número de propriedades de objeto
Compatibilidade de parâmetros begin / end	Sim	Sim	No

• O número de loops é avaliado no início e não muda durante o processo. Adicionar ou remover itens durante o loop não é recomendado porque resulta em iterações faltantes ou redundantes.
• Por padrão, as instruções anexas são executadas para cada valor de Expressão. Entretanto, é possível sair do loop comprovando uma condição ao início do loop (While) ou ao final do loop (Until).
• Os parâmetros opcionais begin e end podem ser usados com coleç~eos e seleções de entidades para definir os limites do loop.
• O loop For each...End for each pode ser usado em uma coleção compartida ou um objeto compartilhado. Se seu código necessitar modificar um ou mais elementos da coleção ou das propriedades de objeto, deve utilizar as palavras chave Use...End use. Dependendo de sus necessidades, pode chamar às palavras clave Use...End use:
  • antes de entrar no loop, se os elementos devem ser modificados juntos por razões de integridade, ou
  • dentro do loop quando só tiver que modificar alguns elementos/propriedades e não é necessário gerenciar a integridade.

The break and continue statements are described below.

Loop através da coleção

Quando For each... End for each for utilizado com uma Expression do tipo Collection, o parâmetro Current_Item é uma variável do mesmo tipo que os elementos da coleção. Como padrão, o número de loops é baseado no número de elementos da coleção.

A coleção deve conter só elementos do mesmo tipo, do contrário se devolverá um erro assim que a variável Current_Item tenha sido atribuída o primeiro tipo de valor estranho.

Em cada iteração do loop, a variável Current_Item é preenchida automaticamente com o elemento correspondente da coleção. Os pontos abaixo devem ser considerados:

• Se a variável Current_Item é de tipo objeto ou de tipo coleção (ou seja, se Expresión for uma coleção de objetos ou de coleções), ao modificar esta variável se modificará automaticamente o elemento coincidente da coleção (porque os objetos e as coleções compartem as mesmas referências). Se a variável for de tipo escalar, só se modificará a variável.
• A variável_Current_Item_ deve ser do mesmo tipo que os elementos da coleção. Se algum elemento da coleção não for do mesmo tipo que a variável, um erro é gerado e o loop para.
• Se a coleção conter elementos com um valor Null, se gerará um erro se o tipo de variável Current_Item não é compatível com valores Null (como as variáveis de tipo inteiro longo).

Exemplo

Se quiser computar algumas estatísticas para uma coleção de números:

 C_COLLECTION($nums)
 $nums:=New collection(10;5001;6665;33;1;42;7850)
 C_LONGINT($item;$vEven;$vOdd;$vUnder;$vOver)
 For each($item;$nums)
    If($item%2=0)
       $vEven:=$vEven+1
    Else
       $vOdd:=$vOdd+1
    End if
    Case of
       :($item<5000)
          $vUnder:=$vUnder+1
       :($item>6000)
          $vOver:=$vOver+1
    End case
 End for each
  //$vEven=3, $vOdd=4
  //$vUnder=4,$vOver=2

Loop nas seleções de entidades

Quando For each...End for each for utilizado com uma Expression do tipo Collection, o parâmetro Current_Item é uma variável do mesmo tipo que os elementos da coleção.

O número de loops é baseado no número de entidades da seleção de entidades. Em cada iteração do loop, o parâmetro Current_Item é preenchido automaticamente com a entidade da seleção de entidade que estiver sendo processada atualmente.

Nota: se a seleção de entidades conter uma entidade que tenha sido eliminada, enquanto isso, por outro processo, ela é pulada durante o loop.

Lembre que qualquer modificação aplicada na entidade atual deve ser guardada explicitamente utilizando entity.save( ).

Exemplo

Se quiser aumentar o salário de todos os empregados britânicos em uma seleção de entidades:

 C_OBJECT(emp)
 For each(emp;ds.Employees.query("country='UK'"))
    emp.salary:=emp.salary*1,03
    emp.save()
 End for each

Loops nas propriedades de objetos

Quando se utiliza For each... End for each com uma Expression de tipo Object, o parâmetro Current_Item é uma variável texto que é preenchida automaticamente com o nome da propriedade atualmente processada.

As propriedades do objeto são processadas de acordo com sua ordem de criação. Durante o loop, propriedades podem ser adicionadas ou eliminadas no objeto, sem modificar o número de loops que permanecerão no número original de propriedades do objeto.

Exemplo

Se quiser trocar os nomes para maiúsculas no objeto a seguir:

{
    "firstname": "gregory",
    "lastname": "badikora",
    "age": 20
}

You can write:

 For each(property;vObject)
    If(Value type(vObject[property])=Is text)
       vObject[property]:=Uppercase(vObject[property])
    End if
 End for each

{
    "firstname": "GREGORY",
    "lastname": "BADIKORA",
    "age": 20
}

Parâmetros begin / end

Pode definir limites para a iteração usando os parâmetros opcionais inicio e fim.

Nota:os parâmetros inicio e fim só podem ser utilizados em iterações através de coleções e seleções de entidades (são ignoradas nas propriedades de objetos).

• No parâmetro begin, passe l posilçao do elemento em Expression na que se iniciará a iteração (se inclui begin).
• In the end parameter, you can also pass the element position in Expression at which to stop the iteration (end is excluded).

Se omitir end ou se fim for maior que o número de elementos em Expression, os elementos são iteragids de begin até o último elemento (incluído). Se os parâmetros inicio efim forem valores positivos, representam posições reais de elementos em Expression. Se begin for um valor negativo, é recalculado como begin:=begin+Expression size (é considerado como o deslocamento offset desde o final de Expression). Se o valor calculado for negativo, inicio toma o valor 0. Nota: mesmo se inicio for negativo, a iteração continua sendo realizada na ordem normal. Se fim for um valor negativo, se recalcula como fim:=fim+tamanho da expressão

Por exemplo:

• a collection contains 10 elements (numbered from 0 to 9)
• begin=-4 -> begin=-4+10=6 -> iteration starts at the 6th element (#5)
• end=-2 -> end=-2+10=8 -> iteration stops before the 8th element (#7), i.e. at the 7th element.

Exemplo

 C_COLLECTION($col;$col2)
 $col:=New collection("a";"b";"c";"d";"e")
 $col2:=New collection(1;2;3)
 C_TEXT($item)
 For each($item;$col;0;3)
    $col2.push($item)
 End for each
  //$col2=[1,2,3,"a","b","c"]
 For each($item;$col;-2;-1)
    $col2.push($item)
 End for each
  //$col2=[1,2,3,"a","b","c","d"]

Until and While conditions

Pode controlar a execução de For each... End for each adicionando uma condição Until ou uma condição While ao loop. Quando uma instrução Until(condição) estiver associada ao loop, a iteração vai parar logo que a condição seja avaliada como True, mas no caso de uma instrução While(condición), a iteração para quando a condição for avaliada, pela primeira vez, como False.

Pode passar qualquer uma das duas palavras chave em função das suas necessidades:

• The Until condition is tested at the end of each iteration, so if the Expression is not empty or null, the loop will be executed at least once.
• The While condition is tested at the beginning of each iteration, so according to the condition result, the loop may not be executed at all.

Exemplo

 $colNum:=New collection(1;2;3;4;5;6;7;8;9;10)

 $total:=0
 For each($num;$colNum)While($total<30) //tested at the beginning
    $total:=$total+$num
 End for each
 ALERT(String($total)) //$total = 36 (1+2+3+4+5+6+7+8)

 $total:=1000
 For each($num;$colNum)Until($total>30) //tested at the end
    $total:=$total+$num
 End for each
 ALERT(String($total)) //$total = 1001 (1000+1)

break and continue

All looping structures above support both break and continue statements. These statements give you more control over the loops by allowing to exit the loop and to bypass the current iteration at any moment.

break

The break statement terminates the loop containing it. Control of the program flows to the statement immediately after the body of the loop.

If the break statement is inside a nested loop (loop inside another loop), the break statement will terminate the innermost loop.

Exemplo

For (vCounter;1;100)
    If ($tab{vCounter}="") //if a condition becomes true
        break //end of the for loop
    End if
End for

continue

The continue statement terminates execution of the statements in the current iteration of the current loop, and continues execution of the loop with the next iteration.

var $text : Text
For ($i; 0; 9)
    If ($i=3)
        continue //go directly to the next iteration
    End if
    $text:=$text+String($i)
End for
// $text="012456789"