bonjour

j'aimerais savoir si il est possible de modifier cette partie de code

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
        while(Connection_BD->TableSqlPal->Eof == false)
        {
                EtatZone = Connection_BD->TableSqlPal->FieldByName("Etat")->Value;
                // Champ a remplir
                if(EtatZone == "Occupé")
                {
                        NomZone = Connection_BD->TableSqlPal->FieldByName("Nom_ZoneP")->Value;
 
                        switch(NomZone)
                        {
                                case 1:
                                {
                                        BP1->Color = clRed;
                                        ShapeBP1->Brush->Color = clRed;
                                        break;
                                }
 
                                case 2:
                                {
                                        BP2->Color = clRed;
                                        ShapeBP2->Brush->Color = clRed;
                                        break;
                                }
                                case 3:
                                {
                                        BP3->Color = clRed;
                                        ShapeBP3->Brush->Color = clRed;
                                        break;
                                }
                                case 4:
                                {
                                        BP4->Color = clRed;
                                        ShapeBP4->Brush->Color = clRed;
                                        break;
                                }
                        }
 
                }
                Connection_BD->TableSqlPal->Next();
        }
car de le switch je dois mettre 21 case logiquement.

merci d'avance