Boucle qui s'auto appelleRésolu

Question

Salut,



Ma source est la suivante :



function TForm1.Detection : boolean  ; 

begin

  .........................................

...........................................

    if result=false then

  begin

  Detection;  

  end

  else

  edit1.Text:='D&#233;tect&#233;'';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Detection;

end;



Vous l'avez compris si on clique sur le bouton la fonction Detection
est appel&#233;e ind&#233;finiment tant que le r&#233;sultat n'est pas true.



Evidemment ca plante la mentablement.



PS : je ne veux pas utiliser de Timer dans la mesure ou je travaille en mode console



Merci &#224; vous

JulioDelphi · Accepted Answer

Function TForm1.Detection : boolean; 
Begin
 Result := False;
 Application.ProcessMessages;
 While Not Result Do
  Detection;
 Result := true;
 Edit1.Text :=  'Détecté';
end;

comme ça de tete sans delphi sous la main, mais euh, la fonction : boolean est ici inutile, non ? ^^

Francky23012301 · Answer

Salut JulioDelphi



Oui la fonction boolean est inutile c'est vrai



Meci A+

f0xi · Answer

PS : je ne veux pas utiliser de Timer dans la mesure ou je travaille en mode console

alors vous allez m'expliquer clairement comment, EN MODE CONSOLE, vous pouvez avoir :

 procedure TForm1.Button1Click(Sender: TObject);  
 begin
 Detection;
 end;


                Function TForm1.Detection : boolean; 
Begin
 Result :=  False;
  Application.ProcessMessages;   
 While Not Result Do
  Detection;
 Result : = true;
 Edit1.Text :=  'D&#233;tect&#233;';
end;

f0xi · Answer

zut j'oubliais, en mode console c'est un peu comme quand on reviens en turbo pascal ...

donc une bonne vieille boucle :

repeat
   .. code ..
until ExitBool;

ferat parfaitement l'affaire!

soit :

var 
   ExitBool : boolean = false;

procedure ExitProc;
begin
    Repeat
        .. code .. ExitBool := true ou false selon parametre

        // l'appuis sur la touche Echape force le passage a true
        ExitBool := (Windows.GetAsyncKeyState(Windows.VK_ESCAPE) < 0);
    until ExitBool;
end;

begin
    .. code
    ExitProc;
    .. code
end.

Francky23012301 · Answer

Mdr Foxi : evidemment pas de bouton en mode console lol. En fait c'est
parce que je ne faisais pas le teste en mode console evidemment.





J'aurais du le pr&#233;ciser autant pour moi



A+

Boucle qui s'auto appelle

5 réponses

Votre réponse

Discussions similaires