Problème avec 2 blocs IF dans une procedure

bonjour tout le monde,
Voila mon problème, j'ai une procedure dans mon code pour trier les données d'un StringGrid vers des CheckBox et des Edit.
Enfin bref, quelque ligne sont comme cour-circuité

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm3.Display_start_data; begin IF StringGrid2.Cells[0,StringGrid1.Selection.BottomRight.Y-1]='1' then begin CheckBox1.Checked:=TRUE; Edit1.Text:=StringGrid2.Cells[1,StringGrid1.Selection.BottomRight.Y-1]; Edit1.Visible:=TRUE; end;   IF StringGrid2.Cells[2,StringGrid1.Selection.BottomRight.Y-1]='1' then begin CheckBox3.Checked:=TRUE; Edit3.Text:=StringGrid2.Cells[3,StringGrid1.Selection.BottomRight.Y-1]; Edit9.Text:=StringGrid2.Cells[4,StringGrid1.Selection.BottomRight.Y-1]; Edit3.Enabled:=TRUE; Edit3.Visible:=TRUE; Edit9.Enabled:=TRUE; Edit9.Visible:=TRUE; end; end;

---

Si je suprime l'un des bloques IF l'autre fonctionne. En utilisant le debug ligne par ligne j'ai vu que lorsque le programme arrive ou millieu du second bloque, les données du premier ce met à 0 :roll:

Avez-vous une idée pour résoudre mon problème?

J'ai pas tout compris qu'est ce que tu appelles les données???

par exemple Edit1.Text='jour'

avec le mode debug, dés que le programme arrive au second bloc Edit1.Text prend la valeur nul, Edit1.Text=''

T'aurais pas implementer OnChange() de Edit3 ou Edit9 par hasard?

non

Faudrait savoir :

Citation:

---

dés que le programme arrive au second bloc

---

ou ?

Citation:

---

lorsque le programme arrive ou millieu du second bloque

---

Dans le premier cas si la cellule est vide c'est normal.
Dans le second cas c'est mystérieux, ...
Mes 2 cts,
--
jp

Quand je dit :

Citation:

---

dés que le programme arrive au second bloc

---

Sa veu bien dir se que sa veu dire, et quand je dit

Citation:

---

lorsque le programme arrive ou millieu du second bloque

---

c'est pour présisé ou sa çe passe dans le second bloc
et pour plus de précision c'est à la ligne:

Code:

---

Edit3.Text:=StringGrid2.Cells[3,StringGrid1.Selection.BottomRight.Y-1];

---

Donc la question est; il y a t'il une erreur de syntaxe dans mon code ou Delphi (2006) bug?

Juste comme ça en apssant : quelle est l'erreur renvoyée ?

Il y a pas d'erreur renvoyée

Bonjour,

La procedure Display_Start_Data n'est-elle pas appelée par un événement qui résulterait de sa propre éxécution (par exemple, un onchange sur un Tedit.text modifié) ?

oui c'est sur l'événement StringGrid1Click qui éxécute la procedure.
Dans la procedure, je li les données via IF de StringGrid1 d'où est venu l'événement click.

j'ai trouvé une solution pour mon problème, enfin j'ai trouvé la cause;
dans le code générale une procedure CheckBox1Click initialisé mes variables.
Erreur de débutant, et sur un programme de plus de 2000 ligne c pas toujour facille. enfin on aprend de ces erreurs, c'est le principal.

Je tien a remercier ceux qui on tanté de donnée une solution. :ave:

Bonne soirée

Asgard.

Juste pour info, l'événement CheckBox1Click lance sa procedure avec le click de la sourie ET la commande CheckBox1.Checked:=TRUE ou FALSE.

Citation:

---

Envoyé par asgard

Juste pour info, l'événement CheckBox1Click lance sa procedure avec le click de la sourie ET la commande CheckBox1.Checked:=TRUE ou FALSE.

---

houlala... à éviter, encore faut-il le savoir (en tout cas c'est vrai jusqu'en Delphi 7, à vérifier pour les autres Delphi)

Voici quelques lignes de code à tester de toute urgence :

Code:

---

1 2 3 4 5 6 7

procedure Form1.CheckBox1Click(Sender:TObject); begin case CheckBox1.Checked of true:showmessage('cochée'); false:showmessage('décochée'); end; end;

---

à comaprer avec ceci :

Code:

---

1 2 3 4 5 6 7

procedure Form1.CheckBox1Click(Sender:TObject); begin case CheckBox1.State of cbChecked:showmessage('cochée'); CbUnChecked:showmessage('décochée'); end; end;

---

Dans le premier cas, si vous cochez la case, Delphi vous dira que la case est décochée ! Pourquoi ? parce que la propriété checked est mise à jour après le déclenchement de l'évènement OnCheck... C'est nul et piégeant mais il faut le savoir. :aie:

Du coup, pour contourner le problème, il vaut mieux tester la propriété State de la Checkbox (qui peut être égale à cbChecked, cbGrayed ou cbUnChecked), qui elle, est bien mise à jour avant le déclenchement de l'évènement ;)