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 !
--
A voir également:

3 réponses

f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 34
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
Rejoignez-nous