Discussion :

[spyk]

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 :

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;

Donc, en theorie, Integer ne devrait pas pouvoir etre plus grand que 10.
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

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;

ICi, Donnecequisuis_multi() retourne le texte compris dans la page URL comprit entre 'bxx'+IntToStr(MyIII) et <\span>.
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 !

[tourlourou]

et si Length(Temp3)=10 ?

à voir ci-dessous ; sinon, vérifie ce que renvoie donnecequisuis_multi()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
MyIII := 1;
Ouinon:=non;
 
  while MyIII <= MaxSimultaneousAttak 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 begin
       nbrTOUTEflotte := MyIII;
       Inc(MyIII);
     end
     else break;
  end;

[spyk]

Bon, j'ai resolu mon probleme comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
MyIII := 0;
     showmessage('ok');
 
  while true do
  begin
     TEMP3:= '';
     showmessage('1');
     TEMP3 := donnecequisuis_multi(url,requestreferer,'bxx'+IntToStr(MyIII),'</span>', 1,'<',ouinon);
           showmessage('2! LONG'+inttostr(length(TEMp3))+'(str:'+temp3);
     ouinon := 'oui';//Ensuite on telecharge plus la page, on utilise le cache
     if length(TEMP3) > 10 then
     begin
     MyIII := MyIII+1;
     nbrTOUTEflotte := MyIII  ;;
     end;
     if length(temp3) < 10 then
     begin
     nbrTOUTEflotte := MyIII  ;;
     break;
     end;
     if MyIII > MaxSimultaneousAttak then break;
  end;

Le probleme venais du faite que si lenght(TEMP3) < 10 alors nbrTOUTEflotte n'avais aucune valeur... ce qui passé dans le inttostr() donnait nimporte quoi.

Moral: Toujour initialiser ses variables avec un bon vieux :=0 avant de les utiliser