Case of - step by step [Résolu]

Signaler
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Statut
Membre
Dernière intervention
18 août 2015
-
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Statut
Membre
Dernière intervention
18 août 2015
-
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

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
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;
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Statut
Membre
Dernière intervention
18 août 2015

Merci f0xi, pour ta réponse je vais essayer ça dès que je peux !

Bon week-end
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Statut
Membre
Dernière intervention
18 août 2015

C'est en effet beaucoup mieux géré ! merci encore !