Saltar al contenido principal
Versión: 18

Estructuras repetitivas (bucles)

While...End while

La sintaxis de la estructura condicional While...End while es:

 While(Boolean_Expression)
statement(s)
End while

Un bucle While...End while ejecuta las instrucciones dentro del bucle mientras la expresión booleana sea TRUE. Comprueba la expresión booleana al inicio del bucle y no entra en el bucle si la expresión es FALSE.

Es común inicializar el valor probado en la expresión booleana inmediatamente antes de entrar en el bucle While...End while. Inicializar el valor significa asignarle un contenido adecuado, normalmente para que la expresión booleana sea TRUE y While...End while ejecute el bucle.

El valor de la expresión booleana debe poder ser modificado por un elemento dentro del bucle, de lo contrario se ejecutará indefinidamente. El siguiente bucle continúa para siempre porque NeverStop es siempre TRUE:

 NeverStop:=True
While(NeverStop)
End while

Si se encuentra en una situación de este tipo, en la que un método se ejecuta de forma incontrolada, puede utilizar las funciones de rastreo para detener el bucle y localizar el problema. Para más información sobre el seguimiento de un método, consulte la página Gestión de errores.

Ejemplo

 CONFIRM("¿Añadir un nuevo registro?") CONFIRM("Add a new record?") //The user wants to add a record?
While(OK=1) //Bucle mientras el usuario quiera
ADD RECORD([aTable]) /Añadir un nuevo registro
End while //El bucle siempre termina con End while

En este ejemplo, el valor de la variable sistema OK es definido por el comando CONFIRM antes de que se inicie el bucle. Si el usuario hace clic en el botón OK de la caja de diálogo de confirmación, la variable del sistema OK toma el valor 1 y se inicia el bucle. En caso contrario, la variable del sistema OK toma el valor 0 y se omite el bucle. Una vez se inicia el bucle, el comando ADD RECORD permite continuar la ejecución del bucle porque se define la variable sistema OK en 1 cuando el usuario guarda el registro. Cuando el usuario cancela (no guarda) el último registro, la variable del sistema OK toma el valor 0 y el bucle se detiene.

Repeat...Until

La sintaxis de la estructura condicional Repeat...Until es:

 Repeat
statement(s)
Until(Boolean_Expression)

Un bucle Repeat...Until es similar a un bucle While...End while, excepto que comprueba la expresión booleana después del bucle en lugar de antes. Así, un bucle Repeat...Until siempre ejecuta el bucle una vez, mientras que si la expresión booleana es inicialmente False, un bucle While...End while no ejecuta el bucle en absoluto.

La otra diferencia con un bucle Repeat...Until es que el bucle continúa hasta que la expresión booleana sea TRUE.

Ejemplo

Compara el siguiente ejemplo con el ejemplo del bucle While...End while. Tenga en cuenta que la expresión booleana no necesita ser inicializada-no hay un comando CONFIRM para inicializar la variable OK.

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

For...End for

La sintaxis de la estructura condicional For...End for es:

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

El bucle For...End for es un bucle controlado por un contador:

  • La variable contador Counter_Variable es una variable numérica (Real o Entero largo) inicializada por For...End for con el valor especificado por Start_Expression.
  • Cada vez que se ejecuta el bucle, la variable del contador se incrementa en el valor especificado en el valor opcional Increment_Expression. Si no se especifica Increment_Expression, la variable del contador se incrementa en uno (1), que es el valor predeterminado.
  • Cuando la variable del contador pasa el valor End_Expression, el bucle se detiene.

Importante: las expresiones numéricas Start_Expression, End_Expression y Increment_Expression se evalúan una vez al principio del bucle. Si estas expresiones son variables, el cambio de una de estas variables dentro del bucle no afectará al bucle.

Consejo: Sin embargo, para fines especiales, puede cambiar el valor de la variable Counter_Variable dentro del bucle; esto afectará al bucle.

  • Normalmente Start_Expression es menor que End_Expression.
  • Si Start_Expression y End_Expression son iguales, el bucle se ejecutará sólo una vez.
  • Si Start_Expression es mayor que End_Expression, el bucle no se ejecutará en absoluto a menos que se especifique una Increment_Expression negativa. Ver los ejemplos.

Ejemplos básicos

  1. El siguiente ejemplo ejecuta 100 iteraciones:
 For(vCounter;1;100)
//Hacer algo
End for
  1. El siguiente ejemplo recorre todos los elementos del array anArray:
 For($vlElem;1;Size of array(anArray))
//Hacer algo con el elemento
anArray{$vlElem}:=...
End for
  1. El siguiente ejemplo recorre todos los caracteres del texto vtSomeText:
 For($vlChar;1;Length(vtSomeText))
//Hacer algo con el carácter si es un TAB
If(Character code(vtSomeText[[$vlChar]])=Tab)
//...
End if
End for
  1. El siguiente ejemplo recorre los registros seleccionados para la tabla [aTable]:
 FIRST RECORD([aTable])
For($vlRecord;1;Records in selection([aTable]))
//Hacer algo con el registro
SEND RECORD([aTable])
//...
//Ir al siguiente registro
NEXT RECORD([aTable])
End for

La mayoría de los bucles For...End for que escribirá en sus bases se parecerán a los que se presentan en estos ejemplos.

Disminuir la variable contador

En algunos casos, puede querer tener un bucle cuya variable de contador sea decreciente en lugar de creciente. Para ello, debe especificar Start_Expression mayor que End_Expression y Increment_Expression debe ser negativa. Los siguientes ejemplos hacen lo mismo que los anteriores, pero en orden inverso:

  1. El siguiente ejemplo ejecuta 100 iteraciones:
 For(vCounter;100;1;-1)
//Hacer algo
End for
  1. El siguiente ejemplo recorre todos los elementos del array anArray:
 For($vlElem;Size of array(anArray);1;-1)
//Hacer algo con el elemento
anArray{$vlElem}:=...
End for
  1. El siguiente ejemplo recorre todos los caracteres del texto vtSomeText:
 For($vlChar;Length(vtSomeText);1;-1)
//Hacer algo con el carácter si es un TAB
If(Character code(vtSomeText[[$vlChar]])=Tab)
//...
End if
End for
  1. El siguiente ejemplo recorre los registros seleccionados para la tabla [aTable]:
 LAST RECORD([aTable])
For($vlRecord;1;Records in selection([aTable]))
//Hacer algo con el registro
SEND RECORD([aTable])
//...
//Ir al registro anterior
PREVIOUS RECORD([aTable])
End for

Incrementar la variable del contador en más de uno

Si lo requiere, puede utilizar una Increment_Expression (positiva o negativa) cuyo valor absoluto sea mayor que uno.

  1. El siguiente bucle aborda sólo los elementos pares del array anArray:
 For($vlElem;2;Size of array(anArray);2)
//Hacer algo con el elemento #2,#4...#2n
anArray{$vlElem}:=...
End for

Comparación de estructuras de bucle

Volvamos al primer ejemplo de For...End for. El siguiente ejemplo ejecuta 100 iteraciones:

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

Es interesante ver cómo el bucle While...End while y el bucle Repeat...Until realizarían la misma acción. Aquí está el bucle equivalente While...End while:

 $i:=1 //Inicializar el contador
While($i<=100) //Bucle 100 veces
//Hacer algo
$i:=$i+1 //Necesita incrementar el contador
End while

Aquí está el bucle equivalente Repeat...Until:

 $i:=1 //Inicializar el contador
Repeat
//Hacer algo
$i:=$i+1 //Necesita incrementar el contador
Until($i=100) //Bucle 100 veces

Consejo: el bucle For...End for suele ser más rápido que los bucles While...End while y Repeat...Until, porque 4D comprueba la condición internamente en cada ciclo del bucle e incrementa el contador. Por lo tanto, utilice el bucle For...End for siempre que sea posible.

Optimizing the execution of the For... End for loops

Puede utilizar variables reales y enteras, así como contadores interproceso, de proceso y de variables locales. Para bucles repetitivos largos, especialmente en modo compilado, utilice variables locales de tipo Entero largo.

  1. Aquí un ejemplo:
 C_LONGINT($vlCounter) //Utilización de variables locales de tipo Entero largo
For($vlCounter;1;10000)
//Hacer algo
End for

Nested For... End for looping structures

Puede anidar tantas estructuras de control como necesite (razonablemente). Esto incluye la anidación de bucles For...End for. Para evitar errores, asegúrese de utilizar diferentes variables de contador para cada estructura de bucle.

He aquí dos ejemplos:

  1. El siguiente ejemplo recorre todos los elementos de un array de dos dimensiones:
 For($vlElem;1;Size of array(anArray))
//...
//Hacer algo con la línea
//...
For($vlSubElem;1;Size of array(anArray{$vlElem}))
//Hacer algo con el elemento
anArray{$vlElem}{$vlSubElem}:=...
End for
End for
  1. El siguiente ejemplo construye un array de punteros a todos los campos de fecha presentes en la base:
 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

La sintaxis de la estructura condicional For each... End for each es:

 For each(Current_Item;Expression{;begin{;end}}){Until|While}(Boolean_Expression)}
instrucción(es)
End for each

La estructura For each... End for each ejecuta un Current_item especificado sobre todos los valores de Expression. El tipo Current_item depende del tipo Expression. El bucle For each... End for each puede iterar a través de tres tipos de Expression:

  • colecciones: bucle en cada elemento de la colección,
  • selecciones de entidades: bucle en cada entidad,
  • objetos: bucle en cada propiedad del objeto.

La siguiente tabla compara los tres tipos de For each... End for each:

Bucle en las coleccionesBucle en las selecciones de entidadesBucle en los objetos
Tipo Current_ItemVariable del mismo tipo que los elementos de la colecciónEntityVariable texto
Tipos de expresionesColección (con elementos del mismo tipo)Entity selectionObject
Número de bucles (por defecto)Número de elementos de la colecciónNúmero de entidades en la selecciónNúmero de propiedades del objeto
Soporte de parámetros begin / endNo
  • El número de bucles se evalúa al inicio y no cambiará durante el proceso. La adición o eliminación de elementos durante el bucle no suele ser recomendable, ya que puede resultar en redundancia o perdidas de iteraciones.
  • Por defecto, la(s) instrucciones adjuntas se ejecutan para cada valor de Expresión. Sin embargo, es posible salir del bucle comprobando una condición al principio del bucle ( While) o al final del bucle (Until).
  • Los parámetros opcionales begin y end pueden utilizarse con colecciones y selecciones de entidades para definir los límites del bucle.
  • El bucle For each... End for each puede utilizarse en una colección compartida o en un objeto compartido. Si su código necesita modificar uno o más elementos de la colección o de las propiedades del objeto, debe utilizar las palabras clave Use...End use. Dependiendo de sus necesidades, puede llamar a las palabras clave Use...End use:
    • antes de entrar en el bucle, si los elementos deben modificarse juntos por razones de integridad, o
    • dentro del bucle cuando sólo hay que modificar algunos elementos/propiedades y no es necesario gestionar la integridad.

Bucle en las colecciones

Cuando For each...End for each se utiliza con una Expression del tipo Collection, el parámetro Current_Item es una variable del mismo tipo que los elementos de la colección. El número de bucles se basa en el número de elementos de la colección.

La colección debe contener sólo elementos del mismo tipo, de lo contrario se devolverá un error en cuanto a la variable Current_Item se le asigne el primer tipo de valor diferente.

En cada iteración del bucle, la variable Current_Item se llena automáticamente con el elemento correspondiente de la colección. Hay que tener en cuenta los siguientes puntos:

  • Si la variable Current_Item es de tipo objeto o de tipo colección (es decir, si Expresión es una colección de objetos o de colecciones), al modificar esta variable se modificará automáticamente el elemento coincidente de la colección (porque los objetos y las colecciones comparten las mismas referencias). Si la variable es de tipo escalar, sólo se modificará la variable.
  • La variable Current_Item debe ser del mismo tipo que los elementos de la colección. Si algún elemento de la colección no es del mismo tipo que la variable, se genera un error y el bucle se detiene.
  • Si la colección contiene elementos con un valor Null, se generará un error si el tipo de variable Current_Item no soporta valores Null (como las variables de tipo entero largo).

Ejemplo

Usted quiere calcular algunas estadísticas para una colección 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

Bucle en las selecciones de entidades

Cuando For each... End for each se utiliza con una Expression del tipo Collection, el parámetro Current_Item es una variable del mismo tipo que los elementos de la colección.

El número de bucles se basa en el número de entidades de la selección de entidades. En cada iteración del bucle, el parámetro Current_Item se llena automáticamente con la entidad de la selección de entidades que se procesa actualmente.

Nota: si la selección de entidades contiene una entidad que fue eliminada mientras tanto por otro proceso, se salta automáticamente durante el bucle.

Tenga en cuenta que cualquier modificación aplicada en la entidad actual debe ser guardada explícitamente utilizando entity.save( ).

Ejemplo

Quiere aumentar el salario de todos los empleados británicos en una selección de entidades:

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

Bucles en las propiedades de objetos

Cuando se utiliza For each... End for each con una Expression de tipo Object, el parámetro Current_Item es una variable texto que se llena automáticamente con el nombre de la propiedad actualmente procesada.

Las propiedades del objeto se procesan de acuerdo con su orden de creación. Durante el bucle, se pueden añadir o eliminar propiedades en el objeto, sin modificar el número de bucles que quedarán en función del número original de propiedades del objeto.

Ejemplo

Quiere pasar los nombres a mayúsculas en el siguiente objeto:

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

Puede escribir:

 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

Puede definir los límites de la iteración utilizando los parámetros opcionales inicio y fin.

**Nota:**los parámetros inicio y fin sólo pueden utilizarse en iteraciones a través de colecciones y selecciones de entidades (se ignoran en las propiedades de objetos).

  • En el parámetro begin, pase la posición del elemento en Expression en la que se iniciará la iteración (se incluye begin).
  • En el parámetro end, también se puede pasar la posición del elemento en Expression en la que se debe detener la iteración (se excluye end).

Si se omite fin o si fines mayor que el número de elementos de Expression, se iteran los elementos desde inicio hasta el último (incluido). Si los parámetros inicio y fin son valores positivos, representan posiciones reales de elementos en Expression. Si comienzo es un valor negativo, se recalcula como comienzo:=comienzo+tamaño de la expresión (se considera como el desplazamiento desde el final de Expression). Si el valor calculado es negativo, inicio toma el valor 0. Nota: aunque inicio sea negativo, la iteración se sigue realizando en el orden estándar. Si fin es un valor negativo, se recalcula como fin:=fin+tamaño de la expresión

Por ejemplo:

  • una colección contiene 10 elementos (numerados de 0 a 9)
  • begin=-4 > -> begin=-4+10=6 >-> la iteración comienza en el sexto elemento (#5)
  • end=-2 -> end=-2+10=8 -> la iteración se detiene antes del 8º elemento (#7), es decir, en el 7º elemento.

Ejemplo

 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"]

Condiciones Until y While

Puede controlar la ejecución de For each... End for each añadiendo una condición Until o una condición While al bucle. Cuando una instrucción Until(condición) está asociada al bucle, la iteración se detendrá tan pronto como la condición se evalúe como True, mientras que cuando se trata de una instrucción While(condición), la iteración se detendrá cuando la condición se evalúe por primera vez como False.

Puede pasar cualquiera de las dos palabras clave en función de sus necesidades:

  • La condición Until se comprueba al final de cada iteración, por lo que si Expression no está vacía o es nula, el bucle se ejecutará al menos una vez.
  • La condición While se prueba al principio de cada iteración, por lo que según el resultado de la condición, el bucle puede no ejecutarse en absoluto.

Ejemplo

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

$total:=0
For each($num;$colNum)While($total<30) //probada al inicio
$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) //probada al final
$total:=$total+$num
End for each
ALERT(String($total)) //$total = 1001 (1000+1)