Sortie de boucle

Version imprimable

07/06/2013, 15h36
Archimède

Sortie de boucle

Voilà, j'avais besoin de sortir d'une boucle après un traitement et j'ai eu évidemment le réflexe d'utiliser Break mais malheureusement, l'instruction n'est pas opérationnelle sous flashpascal2...

Difficile de s'en passer...

Il y a moyen de l'introduire dans Flashpascal ? :)

anthony

bonne question :)

Break et Continue sont en fait des GOTO déguisés...ça doit être faisable, mais peut-être pas sans une méchante rustine...je vais y réfléchir :)

EDIT: bon ça va pas être simple, le compilateur considère le contenu de la boucle comme un code opaque...difficile d'y inclure des goto, il va falloir que je modifie la représentation interne du code :aie:

en attendant, il est possible de mettre la boucle dans une fonction et d'utiliser Exit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 program Project1; {$FRAME_WIDTH 550} {$FRAME_HEIGHT 400} {$FRAME_RATE 12} {$BACKGROUND $FFFFFF} uses Flash8; var l: TextField; procedure loop; var i: Integer; begin for i := 1 to 5 do begin l.Text := l.Text + ' ' + IntToStr(i); if i = 2 then Exit; end; end; begin l := TextField.Create(_root, 'l', 1, 10, 10, 100, 21); loop; end.

07/06/2013, 16h30
Archimède

Ok, pour le exit l:)

Sur le forum delphi, un exit dans une boucle pour sortir, ça les fait hurler :D.
La question était là seulement pour faire propre...

merci pour ta réponse immédiate :ccool:
07/06/2013, 17h01
e-ric

Salut

Pas la peine d'idéaliser, même le GOTO peut être utile. Essayez de sortir de boucles for imbriquées sur plusieurs niveaux, vous verrez que le GOTO va simplifier grandement le code, il ne faut pas l'utiliser à mauvaise escient. Est-il plus efficace de produire un code alambiqué pour contourner un GOTO utile ?

Ceci dit, il m'est arrivé une fois d'utiliser un GOTO.

Dans la VCL même, il y a parfois des exit dans des boucles, cela ne perturbe pas le code ni le lecteur...

@+

Autrement, on peut faire comme ça, non ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program sortie_boucle;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
var
  l: TextField;
 
procedure loop;
var
  i: Integer;
  break: Boolean;
begin
  i := 1;
  break := false;
  while (i <= 5) and not break do
  begin
    l.Text := l.Text + ' ' + IntToStr(i);
    if i = 2 then
      break := true;
    Inc(i);
  end;
end;
 
begin
  l := TextField.Create(_root, 'l', 1, 10, 10, 100, 21);
  loop;
end.

07/06/2013, 18h51
Archimède

Merci pour vos réponses...le soucis n'était pas de trouver le moyen de sortir de ma boucle mais de savoir si le break pouvait exister sous flashpascal sans susciter trop de chamboulements.

merci :)
08/06/2013, 12h38
Roland Chastain

Je saisis l'occasion pour faire une humble demande à Paul. Pourrais-tu faire une simple liste des mots-clés du compilateur ?
Pour le moment le seul moyen de savoir si une instruction est disponible, c'est de l'essayer ! :)
C'est vrai qu'il y a les exemples, mais ce serait quand même bien d'avoir une liste.
08/06/2013, 15h04
Paul TOTH

Citation:

Envoyé par Roland Chastain

Je saisis l'occasion pour faire une humble demande à Paul. Pourrais-tu faire une simple liste des mots-clés du compilateur ?
Pour le moment le seul moyen de savoir si une instruction est disponible, c'est de l'essayer ! :)
C'est vrai qu'il y a les exemples, mais ce serait quand même bien d'avoir une liste.

en même temps il n'y a pas tant de mot clé en Pascal, et il en manque peu :)

voici une page que je viens de mettre à jour ceci dit :)