(suite) faire affecter deux Edits? (peu étrange!)
Résolu/Fermé
cs_yeho
Messages postés
25
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
27 février 2007
-
16 févr. 2007 à 10:26
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 16 févr. 2007 à 14:37
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 16 févr. 2007 à 14:37
A voir également:
- (suite) faire affecter deux Edits? (peu étrange!)
- Ephemeride entre deux dates - Forum Visual Basic 6
- Sql entre deux dates ✓ - Forum SQL
- Comment calculer le nombre de mois séparant deux dates ? ✓ - Forum Delphi / Pascal
- Syntaxe requête sql pour recherche entre deux dates ✓ - Forum VB.NET
- Comparer deux dates sql - Forum SQL
2 réponses
Utilisateur anonyme
16 févr. 2007 à 10:38
16 févr. 2007 à 10:38
procedure TVistGer.ComboBox3Change(Sender: TObject);
begin
if combobox3.ItemIndex = 0 then
begin
edit1.Text:= '2500'
edit2.Text:= 'A'
End
else if combobox3.text = '2' then
Begin
edit1.Text:= '2600'
edit2.Text:= 'B'
End
else if combobox3.text = '3' then
Begin
edit1.Text:= '2700'
edit2.Text:= 'C';
end;
end;
L'utilisation d'un Case Of serait mieux adaptée
begin
if combobox3.ItemIndex = 0 then
begin
edit1.Text:= '2500'
edit2.Text:= 'A'
End
else if combobox3.text = '2' then
Begin
edit1.Text:= '2600'
edit2.Text:= 'B'
End
else if combobox3.text = '3' then
Begin
edit1.Text:= '2700'
edit2.Text:= 'C';
end;
end;
L'utilisation d'un Case Of serait mieux adaptée
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
16 févr. 2007 à 14:37
16 févr. 2007 à 14:37
merci de continuer dans l'autre sujets deja ouvert.
en plus tu n'utilise plus la bonne methode :
procedure TVistGer.ComboBox3Change(Sender: TObject);
begin
case combobox3.ItemIndex of
0 : begin
edit1.Text:= '2500'
edit2.Text:= 'A'
end;
2 : begin
edit1.Text:= '2600'
edit2.Text:= 'B'
end;
3 : begin
edit1.Text:= '2700'
edit2.Text:= 'C';
end;
end;
end;
<hr size="2" width="100%" />Croc (click me)
en plus tu n'utilise plus la bonne methode :
procedure TVistGer.ComboBox3Change(Sender: TObject);
begin
case combobox3.ItemIndex of
0 : begin
edit1.Text:= '2500'
edit2.Text:= 'A'
end;
2 : begin
edit1.Text:= '2600'
edit2.Text:= 'B'
end;
3 : begin
edit1.Text:= '2700'
edit2.Text:= 'C';
end;
end;
end;
<hr size="2" width="100%" />Croc (click me)
