Case of - step by step [Résolu]

Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Dernière intervention
18 août 2015
- - Dernière réponse : phoenixgreg
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
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 !
--
Afficher la suite 

Votre réponse

3 réponses

Messages postés
4307
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
33
0
Merci
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;
Commenter la réponse de f0xi
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Dernière intervention
18 août 2015
0
Merci
Merci f0xi, pour ta réponse je vais essayer ça dès que je peux !

Bon week-end
Commenter la réponse de phoenixgreg
Messages postés
77
Date d'inscription
mardi 17 novembre 2009
Dernière intervention
18 août 2015
0
Merci
C'est en effet beaucoup mieux géré ! merci encore !
Commenter la réponse de phoenixgreg

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.