Problème condition While.Résolu

Question

Bonjour à tous,
En ce début d'année, les problèmes font leurs premières apparitions.
C'est tout naturellement que je me tourne une nouvelle fois vers vous.
Mon problème est le suivant : 
while ((not Form1.TableSert1B.Locate('ID', ID, [loCaseInsensitive])) or (FinBDD1 <> 20)) do          Begin            Inc(ID, 1);            Inc(FinBDD1, 1);          End;
J'ai une condition While ... or ... je regarde dans une base de données si je trouve id si ce n'est pas le cas, j’incrémente pour tester jusqu'à une limite de 20. Si j'ai effectué mon test 20 fois, je suis censé sortir de ma boucle. 
SAUF QUE, je ne sort pas de ma boucle. Je reste bloqué à l'intérieur.
Comment cela se fait ? quelqu'un à t'il une solution ?

Cirec · Answer

Salut,
essaye comme ça :while ((not Form1.TableSert1B.Locate('ID', ID, [loCaseInsensitive])) or (FinBDD1 < 21)) do
          Begin
            Inc(ID, 1);
            Inc(FinBDD1, 1);
          End;

dubois77 · Answer

Salut
Ce ne serait pas un AND au lieu d'un OR qu'il faut pour arrêter la condition ?

Cirec · Answer

Salut
Ce ne serait pas un AND au lieu d'un OR qu'il faut pour arrêter la condition ?
effectivement ... tu as parfaitement raison !
il n'était pourtant pas tard quand j'ai répondu (#^_^#).
il faut lire:while ((not Form1.TableSert1B.Locate('ID', ID, [loCaseInsensitive])) and (FinBDD1 < 21)) do
          begin
            Inc(ID, 1);
            Inc(FinBDD1, 1);
          end; 
Merci à toi d'avoir remarqué l'erreur ;)

vico8000 · Answer

Bonjour,
N'étant pas au boulot la semaine dernière, je n'ai pu tester vos solutions pour le moment. Je reviens vers vous dans le courant de la journée pour vous tenir informé.
Cordialement.

vico8000 · Answer

J'ai tester avec la boucle précédente, pas de soucis à priori, les différents traitements sont en cours.
Cordialement.

Problème condition While.

5 réponses

Votre réponse