Discussion :

[colorid]

Bonjour,

Dans les boucles suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
for i:= 0 to A.Count-1 do
  for j:= 0 to B.Count-1 do
    for k:= 0 to C.Count -1 do
    begin
       if True then
       begin
          // fait quelquechose
         break;
       end;
    end;

Dans cet exemple le break interrompt la dernière boucle soit la boucle k.
Comment faire pour que ce soit la première boucle (boucle i) qui soit interrompue ?

Une réponse rapide serait la bienvenue.

A+

Colorid

[Rayek]

Comme dirait un de mes collèges de travail en voyant un break dans un for : ahhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh !!!

Pourquoi n'utilises tu pas plutôt des while ou repeat ?

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
 
Var 
  i,j,k : Integer;
  bNotEnd : Boolean;
begin
  i := 0;
  j := 0;
  k := 0;
 bNotEnd  := True;
  while (i <= A.Count -1) and bNotEnd do
  begin
    While (j <= B.Count -1) and bNotEnd do
    begin
      While (k <= C.Count -1) and bNotEnd do
      begin
        if True then
          bNotEnd := False;
        inc(k);
      end;
      inc(j);
    end; // while j
    inc(i);
  end;// while i
end;

[colorid]

Ok et mille merci

[Andnotor]

Et pourquoi pas de Break dans une boucle

Sinon, ceci irait aussi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
try
  for i:= 0 to A.Count-1 do
    for j:= 0 to B.Count-1 do
      for k:= 0 to C.Count -1 do
      begin
         if True then
         begin
            // fait quelquechose
           Exit;
         end;
      end;
finally
  //Suite du code
end;

[Franck SORIANO]

Dans le même genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  i,j ,k : integer;
label suite;
begin
  for i := 0 to 1000 do
    for j := 0 to 1000 do
      for k := 0 to 1000 do
      begin
        if true
        then goto suite;
      end;
suite: // La suite du code.
end;

Et on peut sauter pour sortir de n'importe quelle boucle et remonter dans celle qu'on veut...
Je crois que c'est un des rares cas où le goto peut encore avoir une utilité aujourd'hui.

[colorid]

Car on peut retourner à n'importe quel niveau de boucle imbriquée !
Bravo et merci

[Montor]

Et pourquoi pas de Break dans une boucle

Sinon, ceci irait aussi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
try
  for i:= 0 to A.Count-1 do
    for j:= 0 to B.Count-1 do
      for k:= 0 to C.Count -1 do
      begin
         if True then
         begin
            // fait quelquechose
           Exit;
         end;
      end;
finally
  //Suite du code
end;

meme chose avec Abort

[Andnotor]

meme chose avec Abort

Ah non ! Abort va nous faire remonter jusqu'à ce que l'exception (Abort) soit gérée

[Franck SORIANO]

Ah non ! Abort va nous faire remonter jusqu'à ce que l'exception (Abort) soit gérée

Si, il suffit de remplacer ton try...finally par un try...except...

Par contre, ça sera moins performant que l'exit avec le finally.

[Andnotor]

Exact ! Je réagissais juste sur le fait qu'il n'est pas possible d'uniquement remplacer Exit par Abort
Comme il n'est pas possible de simplement remplacer finally par except. "Suite du code" doit aussi être déplacé à l'extérieur du bloc.