Problème condition While. [Résolu]

Question

Posez votre question Signaler

Problème condition While. [Résolu]

vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

- 6 janv. 2017 à 16:11 - Dernière réponse : vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

- 16 janv. 2017 à 10:28

Delphi / Pascal Posez votre question Signaler

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 ?

Afficher la suite

A voir également:

Locaseinsensitive
Delphi while not - Meilleures réponses
Locaseinsensitive delphi - Meilleures réponses
Boucle for, while et condition if ✓ - Forum - PHP
Boucle while et condition if ✓ - Forum - C# / .NET
[mirc scripting] les boucles avec /while et /goto - Conseils pratiques - IRC
Utilisation de la commande "movenext" dans un "do while rec.eof = false" - Codes sources - Visual Basic / VB.NET (VBA)
La boucle while (avec microsoft visual c++ 6.0) - Codes sources - C / C++ / C++.NET (Tutoriaux)

Votre réponse

Répondre au sujet

5 réponses

Votre réponse

Répondre au sujet

Posez votre question

Cirec · Answer 1 · 2017-01-06T17:03:01+0100

Signaler Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

6 janv. 2017 à 17:03

0

Merci

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 2 · 2017-01-07T09:56:48+0100

Signaler Commenter la réponse de dubois77

dubois77

Messages postés: 692
Date d'inscription: jeudi 17 avril 2008
Dernière intervention: 14 septembre 2018

7 janv. 2017 à 09:56

0

Merci

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

Cirec · Answer 3 · 2017-01-07T11:48:38+0100

Signaler Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

7 janv. 2017 à 11:48

0

Merci

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 4 · 2017-01-16T08:06:54+0100

Signaler Commenter la réponse de vico8000

vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

16 janv. 2017 à 08:06

0

Merci

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.

Signaler Commenter la réponse de vico8000

vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

- 16 janv. 2017 à 08:25

Petite question au passage, le AND permet de sortir de la boucle uniquement si les deux conditions sont réunies ?

Signaler Commenter la réponse de dubois77

dubois77

Messages postés: 692
Date d'inscription: jeudi 17 avril 2008
Dernière intervention: 14 septembre 2018

> vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

- 16 janv. 2017 à 10:22

NON, il permet de rester dans la boucle si les 2 conditions sont réunies !!
si une seule est fausse, la boucle s'interrompt
While : -> Tant que vrai faire

Signaler Commenter la réponse de vico8000

vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

> dubois77

Messages postés: 692
Date d'inscription: jeudi 17 avril 2008
Dernière intervention: 14 septembre 2018

- 16 janv. 2017 à 10:27

merci pour la précision.

vico8000 · Answer 5 · 2017-01-16T10:28:40+0100

Signaler Commenter la réponse de vico8000

vico8000

Messages postés: 291
Date d'inscription: lundi 18 janvier 2016
Dernière intervention: 14 février 2018

16 janv. 2017 à 10:28

0

Merci

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. [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !