Case of - step by step

Résolu
phoenixgreg
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Statut
Membre
Dernière intervention
18 août 2015
- 30 nov. 2013 à 11:34
phoenixgreg
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Statut
Membre
Dernière intervention
18 août 2015
- 2 déc. 2013 à 15:00
Bonjour,

j'ai un petit soucis rien de méchant. J'aimerai dans mon code, passer de cas of en case of. Or en débuggant il ne finit pas ma boucle for dans mon premier case of .. Il passe une fois par le 1 le 2 l'inverse ... il fait un peu n'importe quoi !

En image ça donne ça :
 case step of
1: begin
for i := 0 to .. do
begin
......
......
end;
step:=2; // on passe au deuxième case
end;
2: begin
for i := 0 to .. do
begin
......
......
end;
step:=0; // on sort
end;

Voilà n'hésitez pas à me posez des questions si cela n'est pas assez clair.

Merci pour vos réponses et bon week-end !
--

3 réponses

f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
37
Modifié par f0xi le 30/11/2013 à 14:55
function stepIn(var step: integer): integer;
begin
  case step of
    1 : begin
      //
      step := 2;
      result := step;
    end;
    
    2 : begin
      //
      step := 0;
      result := step;
    end;

    else result := 0;
  end;
end;

procedure callStep;
var step : integer;
begin
  Step := 1;
  repeat until StepIn(step) <> 0;
end;
0