Discussion :

[Archimède]

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

[Paul TOTH]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Archimède]

Ok, pour le exit l

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

merci pour ta réponse immédiate

[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...

@+

[Roland Chastain]

Autrement, on peut faire comme ça, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[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.

[Paul TOTH]

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