Bonjour a tous...
Voila, ca fait bout de temps que je programme en delphi, et je pensait pas bloquer sur une boucle enfin bon...
Le truc, c'est que j'ai une boucle comme ca :
Donc, en theorie, Integer ne devrait pas pouvoir etre plus grand que 10.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 While true do begin Integer := integer +1; if integer > 10 then break; end;
Et pourtant parfois il me sort des truc delirant comme integer := 156621
Ce qui fait que je suis bien embeté :
Voici le code de la boucle
ICi, Donnecequisuis_multi() retourne le texte compris dans la page URL comprit entre 'bxx'+IntToStr(MyIII) et <\span>.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 MyIII := 1; Ouinon:=non; while true do begin TEMP3:= ''; TEMP3 := donnecequisuis_multi(url,requestreferer,'bxx'+IntToStr(MyIII),'</span>', 1,'<',ouinon); ouinon := 'oui';//Ensuite on telecharge plus la page, on utilise le cache if length(TEMP3) > 10 then nbrTOUTEflotte := MyIII ;; if length(TEMP3) > 10 then MyIII := MyIII+1; if length(temp3) < 10 then break; if MyIII > MaxSimultaneousAttak then break; end;
Si ce texte est plus long que 10 alors (C'est a dire qu'il existe , ce qu'il n'est pas la cas si bxx ou <\span> ne sont pas trouvé) alors on fait myIII+1
Si MyIII depasse un certain nombre alors on ferme.
Voila.
Merci a tous !
Partager