Case of - step by stepRésolu

Question

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 of1: 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 !
--

f0xi · Answer

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;

phoenixgreg · Answer

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

phoenixgreg · Answer

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

Case of - step by step

3 réponses

Votre réponse

Discussions similaires