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?