Boucle While do sans finRésolu

Question

Bonjour &#224; tous,

je vous soumets un bout de code car j'ai un probl&#232;me compr&#233;hension et je gal&#232;re. En effet la boucle en rouge et gras quand elle arrive au dernier enregistrement, elle devient sans fin et si je rajoute  &#224; la ligne while D1.tbl_res.fieldbyname('Code_Comp').asstring =  lCode   or not D1.tbl_res.Eof  j'ai un message d'erreur; Type incompatible "String et Boolean".

while not D1.tbl_res.Eof do
     begin
          lCode: =D1.tbl_res.fieldbyname('Code_Comp').asstring;
          StringsValides:=0;
          Min:=0;
          Sec:=0;
          cent:=0;
          while D1.tbl_res.fieldbyname('Code_Comp').asstring = lCode do
          begin
          inc(StringsValides);
          STmp:=D1.tbl_res.fieldbyname('CO_Tp').asstring;
          Min:=Min + StrToInt(Copy(STmp, 1, Pos(':', STmp) -1));
          Delete(STmp, 1, Pos(':', STmp));
          Sec:=Sec+StrToInt(Copy(STmp, 1, Pos(':', STmp) -1));
          Delete(STmp, 1, Pos(':', STmp));
          Cent := Cent + StrToInt(STmp);
          D1.tbl_res.next; ==============> Boucle sans fin sur le dernier enregistrement ????
          end;
          Cent := Cent + Sec * 100 + Min * 6000;
          Cent := Cent div StringsValides;
          Sec := Cent div 100;
          Cent := Cent mod 100;
          Min := Sec div 60;
          Sec := Sec mod 60;
          // Enregistrement des moyenne
          D1.tbl_Myn.insert;
          D1.tbl_Myn.FieldByName('Code_Comp').asstring:= lCode;
          D1.tbl_Myn.FieldByName('CO_Moyenne').asstring:=Format('%.1d:%.2d:%.2d', [Min, Sec, Cent]); //lblTemp;
          D1.tbl_Myn.Post;
     end;
     showmessage('Mise &#224; jour termin&#233;e.');

d'avance merci

Codial

Loulibier · Accepted Answer

Je n'ai pas regard&#233; tout ton code, mais il me semble que ton probl&#232;me viens en fait que tu ne puisses pas mettre cette ligne : while D1.tbl_res.fieldbyname('Code_Comp').asstring =  lCode   or not D1.tbl_res.Eof  

en fait pour ne pas avoir ton erreur de compilation il faut &#233;crire :

while ( D1.tbl_res.fieldbyname('Code_Comp').asstring  = lCode) or not D1.tbl_res.Eof do

Et la ton code compilera correctement...

Bonne Prog, 

Olivier

PS : Lorsqu'une r&#233;ponse vous convient, n'oubliez pas de la valider.

exyacc · Answer

vi j'suis d'accord faut entourer ton OR avec parentheses, faut croire que le OR soit prioritaire au =...

et qd tu tapes :  a=b or c=d , il fait peut etre a= (b or c) =d et
du coup il compare une string avec boolean....enfin peut etre... ;o)

exyacc

codial · Answer

Bonsoir et merci pour les r&#233;ponses:

En fait je me plantais lamentablement la bonne syntaxe c'est And au lieu de Or 

 while  D1.tbl_res.fieldbyname('Code_Comp').asstring = lCode and not D1.tbl_res.Eof do

Cordialement

Codial

codial · Answer

Re bonsoir:

Pr&#233;cision vos remarques sont justes car si j'enl&#232;ve les parenth&#232;ses j'ai le message d'erreur: Type incompatible "String et Boolean".

Encore merci de me lib&#233;rer de cette prise de t&#234;te !!! 

Cordialement

exyacc · Answer

de toute facon, des que tu mets des AND ou OR, mets des parentheses,
car la t'as de la "chance" car tes donnees sont pas compatibles
(boolean et string) donc t'as eu une erreur...mais le pire c'est qd y'a
pas d'erreur de compilation et que ca merde dans les resultats 
justement a cause du manque des parentheses...je dis ca par vecu.......
;o).

exyacc

codial · Answer

Bonjour,

merci beaucoup du conseil j'en tiendrait compte. Venant du VB je d&#233;bute avec Delphi aussi je perds beaucoup de temps sur ce genre de syntaxe.

Encore merci. Cordialement.

Codial

Boucle While do sans fin

6 réponses

Votre réponse

Discussions similaires