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