Delphipage

Présentation

En langage Delphi, une boucle est une structure de controle qui dirige des processus repetitifs dans un programme.Une strucure boucle permet de repeter un certain nombre de fois un bloc de code.

Il existe trois fonctions pour faire une boucle :
- FOR
- WHILE
- REAPEAT UNTIL

La boucle FOR

La boucle FOR specifie à l'avance le nombre de repetition grace a une variable de controle. Cette variable s'incrementera ou se decrementera suivant ce que l'on veut faire.

for varcontrole:=valinitial to valfinale do
begin
{instructions executees a chaque repetition de la boucle}
end;

varcontrole est une variable de controle.
valinitiale est une variable initiale.
valfinale est une variable finale.

La variable de controle recoit la valeur initiale et la premiere répétition est effectuée.
Apres chaque repetition executée, la variable de controle recoit la valeur suivante de l'intervalle "valinitiale".."valfinale".
Le cycle s'arrête apres la derniere répetition correspondant à "valfinale".

La boucle WHILE

La boucle WHILE exprime une condition de continuation de la boucle. Les repetitions s'arretent quand la condition devient fausse.

while condition do
begin
{instructions a executer à chaque repetition de la boucle}
end;

La boucle REPEAT UNTIL

La boucle REPEAT UNTIL contient également une expression conditionnelle de controle mais la boucle se poursuit jusqu'a ce que la condition devienne vrai.

repeat
{instructions a executer à chaque repetition de la boucle}
until condition

Contrôler les boucles

Pour contrôler les boucles, c'est à dire pour arrêter une boucle ou pour continuer une boucle, vous devez utiliser BREAK et CONTINUE.
Ses instructions sont utilisables dans les trois sortes de boucles que l'on a vu précèdemment.

Cet exemple montre comment arrêter une boucle au bout de la sixième fois.

var i:integer;
begin
for i:=1 to 10 do
begin
if i=6 then Break;
ShowMessage(IntToStr(i));
end;
ShowMessage('La boucle est terminée');
end;

Contrairement à la procedure EXIT qui permet de quitter une procedure en cours, BREAK quitte la boucle mais continue à éxecuter les instructions qui se trouve après la boucle.