Problème avec plusieurs if then else imbriqués

Version imprimable

Bonjour à tous

Sous Delphi7, j'ai un petit problème avec la fonction if...then .. else qui me torture l'esprit depuis 2 heures...

Dans mon code ci dessous, seule les conditions de la première variable "a" sont traitées ?? (celle surlignée en rouge dans mon code)
les 2 autres pour "b et c" ne sont pas interprétées - pourquoi ?

J'ai tourné le code dans tous les sens en intercalant des begin .. end else ... begin mais rien n'y fait et je ne vois pas la solution.
Si l'un d'entre vous pouvez m'éclairer...

Merci par avance

Cordialement
Beauserge

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c : integer;
begin

a:=StrToInt(EcartF1.text);
if (a >=6) then
 RichEdit1.Lines[0]:='Rien de particulier pour ' + Stringgrid1.Cells[0,1]+ ' ' + Stringgrid1.Cells[0,2]
   else
      if (a >=1) and (a <=5) then
      RichEdit1.Lines[0]:='L''anniversaire approche pour ' + Stringgrid1.Cells[0,1]+ ' ' + Stringgrid1.Cells[0,2] + ' - Le ' + Stringgrid1.Cells[0,9]
        else
       if (a =0)then
       RichEdit1.Lines[0]:='C''est le Jour J - Pensez à souhaite un Bon Anniversaire à ' + Stringgrid1.Cells[0,1]+ ' ' + Stringgrid1.Cells[0,2] + ' - Aujourd''hui ' + Stringgrid1.Cells[0,9];

b:=StrToInt(EcartF2.text);
if (b >=6) then
 RichEdit1.Lines[1]:='Rien de particulier pour ' + Stringgrid1.Cells[1,1]+ ' ' + Stringgrid1.Cells[1,2]
     else
      if (b >=1) and (b <=5) then
       RichEdit1.Lines[1]:='L''anniversaire approche pour ' + Stringgrid1.Cells[1,1]+ ' ' + Stringgrid1.Cells[1,2] + ' - Le ' + Stringgrid1.Cells[1,9]
        else
       if (b =0)then
       RichEdit1.Lines[1]:='C''est le Jour J - Pensez à souhaite un Bon Anniversaire à ' + Stringgrid1.Cells[1,1]+ ' ' + Stringgrid1.Cells[1,2] + ' - Aujourd''hui ' + Stringgrid1.Cells[1,9];

c:=StrToInt(EcartF3.text);
if (c >=6) then
 RichEdit1.Lines[2]:='Rien de particulier pour ' + Stringgrid1.Cells[2,1]+ ' ' + Stringgrid1.Cells[2,2]
    else
     if (c >=1) and (c <=5) then
      RichEdit1.Lines[2]:='L''anniversaire approche pour ' + Stringgrid1.Cells[2,1]+ ' ' + Stringgrid1.Cells[2,2] + ' - Le ' + Stringgrid1.Cells[2,9]
       else
      if (c =0)then
       RichEdit1.Lines[2]:='C''est le Jour J - Pensez à souhaite un Bon Anniversaire à ' + Stringgrid1.Cells[2,1]+ ' ' + Stringgrid1.Cells[2,2] + ' - Aujourd''hui ' + Stringgrid1.Cells[2,9];
end;

15/05/2017, 16h23
Hermite

Bonjour,

commence ta procédure par

Code:

RichEdit1.Clear;

Ensuite remplace les instructions

Code:

RichEdit1.Lines[x] := 'Texte';

par

Code:

RichEdit1.Lines.Add('Texte');
15/05/2017, 16h31
Hermite

J'ai peut-être répondu un peu vite.
Tu es sûr de ne pas avoir d'erreur à l'exécution ?
Après un essai de mon côté ça à l'air de fonctionner, mais je n'ai pas le contenu de ta grille, ni les valeur des champs "EcartF".

Sinon, tu peux essayer la fonction "Nettoyer" puis reconstruire / recompiler. Les modifications de ton code n'ont peut-être pas été prises en compte par le débuggeur.
15/05/2017, 17h46
SergioMaster

Citation:

Envoyé par Beauserge

Sous Delphi7, j'ai un petit problème avec la fonction if...then .. else qui me torture l'esprit depuis 2 heures...

franchement j'ai pas tout lu mais une utilisation de case en lieu et place d'un ensemble de if then else if ... devrit certainement alléger le code
15/05/2017, 18h50
Beauserge

Citation:

Envoyé par Hermite

Bonjour,

commence ta procédure par

Code:

RichEdit1.Clear;

Ensuite remplace les instructions

Code:

RichEdit1.Lines[x] := 'Texte';

par

Code:

RichEdit1.Lines.Add('Texte');

Bonsoir et merci Hermite

Aucune erreur de compilation - c'est impeccable !

En fait je n'avais même pas essayé d'utiliser RichEdit1.lines.add car je pensais que les lignes allaient se superposer mais comme à chaque fois 1 seul choix est sélectionné sur les 3 conditions, aucun risque. Et avec le RichEdit1.Clear, c'est nickel
Je prends note pour la prochaine fois...

En tout cas, tu m'enlèves un grosse épine du pied :-)

Merci encore et aussi pour ta rapidité à répondre

Cordialement

salut

pour faire plus court tu peut aussi faire cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button4Click(Sender: TObject);
const 
  max = 2;
var
  a,i : integer;
begin
  For i := 0 to max do  
  begin
    a:=StrToInt(FindComponent('EcartF'+IntToStr(i+1))  as TEDIT).text)
    if (a >=6) then
      RichEdit1.Lines.add(Format('Rien de particulier pour %s %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2]))
    else
    if (a >=1) and (a <=5) then
      RichEdit1.Lines.add(Format('L''anniversaire approche pour %s %s  - Le %s ',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]]))
   else
    if (a =0) then
      RichEdit1.Lines.add('C''est le Jour J - Pensez à souhaite un Bon Anniversaire à %s %s  - Aujourd''hui  %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]]));
  end;
end;

Bonjour,

Voilà ce que je pensais en parlant du case, je n'avais pas compris qu'il s'agissait d'un problème de sortie mais d'un problème d'imbrication de if then else

j'ai repris le code de anapurna (en rajoutant le Format manquant du if a=0 then )

Code:

1
2
3
4
5
6
a:=StrToInt(FindComponent('EcartF'+IntToStr(i+1))  as TEDIT).text)
case a of
    0 :  RichEdit1.Lines.add(Format('C''est le Jour J - Pensez à souhaite un Bon Anniversaire à %s %s  - Aujourd''hui   %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); 
    1,2,3,4,5 : RichEdit1.Lines.add(Format('L''anniversaire approche pour %s %s  - Le %s ',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); 
    else RichEdit1.Lines.add(Format('Rien de particulier pour %s %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2]));
end;

16/05/2017, 09h58
anapurna

salut,

arf autant pour moi je l'ai écrit à la volet et j'ai effectivement oublié de mettre le format sur la dernière condition ... mais tout le monde l'aurais rectifié de lui même :D

Ma pierre à l'édifice, amélioration du code de Sergio :

Code:

1
2
3
4
5
6
a:=StrToInt(FindComponent('EcartF'+IntToStr(i+1))  as TEDIT).text)
case a of
    0 :  RichEdit1.Lines.add(Format('C''est le Jour J - Pensez à souhaite un Bon Anniversaire à %s %s  - Aujourd''hui   %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); 
    1..5 : RichEdit1.Lines.add(Format('L''anniversaire approche pour %s %s  - Le %s ',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); 
    else RichEdit1.Lines.add(Format('Rien de particulier pour %s %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2]));
end;

16/05/2017, 11h46
SergioMaster

Re,

j'avais bien pensé au 1..5 de guillemouze , je m'en était abstenu faute de vouloir vérifier que ça fonctionnait bien (selon mes souvenirs oui mais bon ...)
16/05/2017, 14h08
retwas

Tu as les réponses dans les postes précédents, mais ce que je te conseille c'est de toujours utiliser les begin..end pour avoir un code plus lisible.

Bonjour à tous et merci de vos réponses

J'aurais bien utilisé un Case ..of mais le soucis c'est que je voudrais avoir plusieurs résultats pour chaque valeur (enregistrements)

Je m'explique pour valeur 0 ajout de la ligne C'est le jour J ...
et également couleur du texte de la ligne en bleu
idem mais en changeant de couleur pour les autres valeurs du case ... of

J'ai rajouté dans mon code ce que je souhaiterai dans l'absolu...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 a:=StrToInt(FindComponent('EcartF'+IntToStr(i+1)) as TEDIT).text) case a of 0 : et aussi résultat : RichEdit1.SelAttributes.color := clblue; // ligne en bleue RichEdit1.Lines.add(Format('C''est le Jour J - Pensez à souhaite un Bon Anniversaire à %s %s - Aujourd''hui %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); 1..5 : et aussi résultat : RichEdit1.SelAttributes.color := clgreen; // ligne en vert RichEdit1.Lines.add(Format('L''anniversaire approche pour %s %s - Le %s ',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); et aussi résultat : else et aussi résultat : RichEdit1.SelAttributes.color := clgray; // ligne en gris RichEdit1.Lines.add(Format('Rien de particulier pour %s %s',[Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2])); et aussi résultat : end;
Et je pense que ce n'est pas possible ?

Confirmez moi ou non si c'est faisable.

Cordialement
Beauserge

Tout simplement en encadrant chaque lot d'instruction par begin..end :

Code:

1
2
3
4
5
6
7
case a of
    0 : begin
            RichEdit1.SelAttributes.color := clblue;  // ligne en bleue
            RichEdit1.Lines.add(Format('C''est le Jour J - Pensez à souhaite un Bon Anniversaire à %s %s  - Aujourd''hui     %s',
                            [Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); 
        end;
    1..5: ...... etc...

Citation:
Envoyé par Hermite
Tout simplement en encadrant chaque lot d'instruction par begin..end :
Code:

1 2 3 4 5 6 7 case a of 0 : begin RichEdit1.SelAttributes.color := clblue; // ligne en bleue RichEdit1.Lines.add(Format('C''est le Jour J - Pensez à souhaite un Bon Anniversaire à %s %s - Aujourd''hui %s', [Stringgrid1.Cells[i,1],Stringgrid1.Cells[i,2],Stringgrid1.Cells[i,9]])); end; 1..5: ...... etc...
Merci Hermite

Le code fonctionne et je vais le mettre en pratique.
J'ai au moins appris cela aujourd'hui :-)

Merci également à tous les membres qui ont participé à la discussion

Cordialement
Beauserge