Discussion :

[Ice-tea]

Bonjours a tous,
J'ai une procedure dans mon code tres redondante, quelqu'un pourrait il me dire comment je peux faire pour l'éviter ?

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
 
procedure RCombo();
begin
  All();
  ComboGenial('NOM');
  form1.SQLQuery1.active:=True;
    While not form1.SQLQuery1.Eof do begin
        form1.combobox2.Items.Add(form1.SQLQuery1.FieldByName('NOM').AsString);
        if FormActive=TRUE then
        form3.ComboBox1.Items.Add(form1.SQLQuery1.FieldByName('NOM').AsString);
        form1.SQLQuery1.Next;
    end;
  ComboGenial('AGENCE');
  form1.SQLQuery1.active:=True;
    While not form1.SQLQuery1.Eof do begin
        form1.ComboBox3.Items.Add(form1.SQLQuery1.FieldByName('AGENCE').AsString);
        if FormActive=TRUE then
        form3.ComboBox2.Items.Add(form1.SQLQuery1.FieldByName('AGENCE').AsString);
        form1.SQLQuery1.Next;
    end;

je n'ai pas copier toute la fonction mais ca continue comme ca encore sur 20 ligne ya juste le numéro des combobox qui change et la valeur de SQLqueryfildbyname('valeur qui change')

(j'ai essayer de mettre tous les combo dans la meme boucle while mais je rencontre des pb sur les champs)

[cadetill]

tu peux faire une fonction avec 1 paramètre que serait le nom du champ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TMonForm.MonFunction(aChamp: string);
begin
  ComboGenial(aChamp);
  form1.SQLQuery1.active:=True;
  While not form1.SQLQuery1.Eof do 
  begin
    form1.ComboBox3.Items.Add(form1.SQLQuery1.FieldByName(aChamp).AsString);
    if FormActive=TRUE then
      form3.ComboBox2.Items.Add(form1.SQLQuery1.FieldByName(aChamp).AsString);
    form1.SQLQuery1.Next;
  end;
end;

Plus ou moins

A+

[zitoune92]

Bonjour,

Utilise une procedure où tu met ton traitement redondant

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure RCombo();
begin
  All();
  Champ:='NOM' ;
  SubRoutine(Champ);
  Champ:='AGENCE' ;
  SubRoutine(Champ);
  ..............etc......
end;

Où SubRoutine est une procedure déclarée ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
procedure SubRoutine(C : string) ;
  ComboGenial(C);
  form1.SQLQuery1.active:=True;
    While not form1.SQLQuery1.Eof do begin
 form1.combobox2.Items.Add(form1.SQLQuery1.FieldByName(C).AsString);
        if FormActive=TRUE then
        form3.ComboBox1.Items.Add(form1.SQLQuery1.FieldByName(C).AsString);
        form1.SQLQuery1.Next;
    end;
end;

Autre conseil utilise les "with" (en l'occurence With Form1 dans la procedure SubRoutine)

A+

[anapurna]

salut ,

le plus simple etant de passer tes combo en parametre

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
 
 
 Procedure AjouteDansCombo(Cb1,Cb2 : TcomboBox;FieldName : String);
 Begin
   ComboGenial(FieldName);
   With form1 Do
   begin
     SQLQuery1.active:=True;
     While not SQLQuery1.Eof do
     begin
       CB1.Items.Add(SQLQuery1.FieldByName(FieldName).AsString);
       if FormActive=TRUE then
         CB2.Items.Add(SQLQuery1.FieldByName(FieldName).AsString);
       SQLQuery1.Next;
     end;
   end;
 End;

@+ Phil

[Ice-tea]

Merciii, je pense que je vais passer en paramettre le nom du combo (j'etais pas sur qu'on puisse) ainsi que le nom du champ
Merci de vos réponse si rapide je test ce soir et jmet le tag résolu si ca roule
a biento
merci
IceTeA