Discussion :

[the watcher]

Allo les amis,
J'ai essayé de mettre en place ce code mais j'ai une erreur me disant que ce type n'est pas appliqué à cet opérande. Ce sera super d'utiliser CASE OF

Code :

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

1
2
3
4
5
6
7
8
9
 If ComboBox1.Text='Mensuel' then
          CurrencyEdit1.Value:=CurrencyEdit2/12
       else if ComboBox1.Text:='Trimestriel' then
          CurrencyEdit1.Value:=CurrencyEdit2/4
       else if ComboBox1.Text:='Semestriel' then
          CurrencyEdit1.Value:=CurrencyEdit2/2
       else if ComboBox1.Text:='Annuel' then
          CurrencyEdit1.Value:=CurrencyEdit2.Value
       end;

Aidez moi à corriger cela s'il vous plaît

[ShaiLeTroll]

tu peux le faire avec un tableau et AnsiMatchStr

Code :

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

1
2
3
4
const
  TYPE_PERIODE: array[0..3] of string = ('Mensuel' , 'Trimestriel' , 'Semestriel' , 'Annuel' );
  TYPE_PERIODE_RATIO: array[0..3] of Integer = (12, 4, 2, 1);
...

Code :

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

CurrencyEdit1.Value:= CurrencyEdit2.Value /  TYPE_PERIODE_RATIO[AnsiMatchStr(ComboBox1.Text, TYPE_PERIODE)];

tu peux aussi faire un Case ... cela évite la division par 1 ou un type non prévu

Code :

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

1
2
3
4
5
6
7
8
case AnsiMatchStr(ComboBox1.Text, TYPE_PERIODE) of
  0: CurrencyEdit1.Value:=CurrencyEdit2.Value / 12;
  1: CurrencyEdit1.Value:=CurrencyEdit2.Value / 4;
  2: CurrencyEdit1.Value:=CurrencyEdit2.Value / 2;
  3: CurrencyEdit1.Value:=CurrencyEdit2.Value;
else
  Merdoum !
end;

Tu peux encore tricher, en mettant le ComboBox1 en Style à csDropDownList, et en utilsant l'ItemIndex

Code :

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

1
2
3
4
5
6
7
8
case ComboBox1.ItemIndex of
  0: CurrencyEdit1.Value:=CurrencyEdit2.Value / 12;
  1: CurrencyEdit1.Value:=CurrencyEdit2.Value / 4;
  2: CurrencyEdit1.Value:=CurrencyEdit2.Value / 2;
  3: CurrencyEdit1.Value:=CurrencyEdit2.Value;
else
  Merdoum !
end;

Faut juste faire attention, que l'ordre ne change pas, en général, j'utilise un remplissage manuel (pas dans la DFM, en code) et une énumération

[Dr.Who]

avec du texte ... non pas de case of...

par contre on vois mieux les erreurs quand on indente correctement :

attention au ":=" dans les conditions -> invalide
attention de bien précisé la propriété Value pour la division!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  if ComboBox1.Text = 'Mensuel' then
    CurrencyEdit1.Value := CurrencyEdit2.Value / 12
  else 
  if ComboBox1.Text = 'Trimestriel' then
    CurrencyEdit1.Value := CurrencyEdit2.Value / 4
  else 
  if ComboBox1.Text = 'Semestriel' then
    CurrencyEdit1.Value := CurrencyEdit2.Value / 2
  else 
  if ComboBox1.Text = 'Annuel' then
    CurrencyEdit1.Value := CurrencyEdit2.Value;

on peut passer au case of comme ceci :

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
 
{ gestionnaire d'evenement commun à :
  ComboBox1 -> onChange
  CurrencyEdit2 -> onChange
}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0 : // Mensuel
      CurrencyEdit1.Value := CurrencyEdit2.Value / 12;
    1 : // Trimestriel
      CurrencyEdit1.Value := CurrencyEdit2.Value / 4;
    2 : // Semestriel
      CurrencyEdit1.Value := CurrencyEdit2.Value / 2;
    else // autre
      CurrencyEdit1.Value := CurrencyEdit2.Value;
  end;
end;

ou encore :

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
 
{ gestionnaire d'evenement commun à :
  ComboBox1 -> onChange
  CurrencyEdit2 -> onChange
}
procedure TForm1.ComboBox1Change(Sender: TObject);
var 
  I : integer;
const
  Divs :array[0..2] of integer = (12, 4, 2);
begin
  I := ComboBox1.ItemIndex;
  if (I >= low(divs)) and (I <= high(divs)) then
    CurrencyEdit1.Value := CurrencyEdit2.Value / Divs[I]
  else
    CurrencyEdit1.Value := CurrencyEdit2.Value;
end;

[the watcher]

Vous êtes vraiment formidables les amis,
Thanks a lot