UNIDAD 2 BORLAND DELPHI CONTROL DE PROGRAMA

13.- CICLO FOR DELPHI

Instrucciones para ciclos, resuelven el problema de repetir todo el programa, o cierta parte del programa mas de una vez.

Este ciclo es uno de los mas usados para repetir una secuencia de instrucciones, sobre todo cuando se conoce la cantidad exacta de veces que se quiere que se ejecute una instrucción simple o compuesta.

Su formato general es:

for VARCONTROL := ValorInicial to ValorFinal do

begin instrucciones; end;

ejemplo:


FOR x :=1 TO 10 DO

BEGIN Label4.Caption := 'pato'; END;


Casos Particulares;

1.- El ciclo comienza en uno y se incrementa de uno en uno, este es el caso mas general.

2.- Pero el valor inicial puede se diferente de uno, ejemplo;

for x := 5 to 15 DO begin etc…

3.- Incluso el valor inicial puede ser negativo, ejemplo;

for x := -3 to 8 do etc…

4.- Los incrementos también pueden ser diferentes al de uno en uno, solo alterar el contador de ciclos dentro del for pero tener cuidado que el ultmo cambio no se salga del limite del ciclo y usar un if para validar el limite de contador;

for x := 1 to 20 do begin inst(es) x := x + 3 if x⇐ 20 then x x:=19 etc..

5.- Un ejemplo para usarlo en los problemas sugeridos mas adelante;

ejemplo;

desplegar los números enteros, comprendidos entre el 10 y el 20.

Ocupamos ahora un componente que pueda almacenar y desplegar un conjunto de los 10 resultados, el único componente visto hasta ahora con esta capacidad es el componente ComboBox, sin embargo existe otro componente llamado ListBox(Standard), muy similar a ComboBox, excepto que no tiene encabezado y todos sus elementos los mantiene a la vista del usuario, no ocultos como el ComboBox, dicho componente ListBox se analiza a fondo en la siguiente unidad, pero es el que de momento permite resolver el problema del for (desplegar un conjunto de datos o resultados a la vez).

Tanto ComboBox como ListBox permiten cargar todos sus elementos o valores, dentro de un programa, usando un método llamado Add(valor) en su propiedad Items, como se ve en el siguiente programa ejemplo;

Para este problema se ocupa poner en Form1, un componente Button OK que en su evento OnClick contiene el for y la carga del componente ListBox, con el siguiente;

Pantalla de diseño

image66.jpg

Programa

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
For x:= 10 to 20 do
begin ListBox1.Items.Add(IntToStr(x));
end;
end;

La pantalla de salida debe ser igual o parecida a la siguiente;

image67.jpg

Este procedimiento y método igualmente trabaja con un componente ComboBox.

Recordar que todos los componentes visuales analizados hasta ahora, en sus propiedades text o caption, entran y salen puras strings.

Por eso en el programa se uso la funcion IntToStr(variable entera) para cargar una string en el componente LISTBOX.

Practicar hasta conseguir tener esta pantalla de salida o de ejecución, cuando se consiga entonces ya se esta listo para lo siguiente.

TAREAS PROGRAMACION BORLAND DELPHI

1.- CONSTRUIR UN PROGRAMA QUE DESPLIEGUE LOS NUMEROS DEL 20 AL 30.

2.- DESPLEGAR LOS ENTEROS ENTRE 30 Y 50 ACOMPAÑADOS DE SU POTENCIA CUADRADA Y RAIZ CUBICA RESPECTIVA ( OCUPA TRES ListBox o mejor aun, un solo listbox y vayan encadenando las trings temporales con el signo + ).

3.- DESPLEGAR UNA TABLA DE MULTIPLICAR QUE EL USUARIO INDIQUE .

Politica de Privacidad