Discussion :

[asgard]

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 :

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
 
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

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

[Micromalice]

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

[asgard]

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=''

[Micromalice]

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

[asgard]

non

[Jipété]

Faudrait savoir :

dés que le programme arrive au second bloc

ou ?

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

[asgard]

Quand je dit :

dés que le programme arrive au second bloc

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

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 :

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

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

[asgard]

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

[Bleys]

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

[asgard]

Il y a pas d'erreur renvoyée

[Graffito]

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é) ?

[asgard]

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.

[asgard]

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.

Bonne soirée

Asgard.

[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.

[LadyWasky]

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 :

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

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 :

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

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.

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