Comment récupérer le texte dans un DBComboBox ? (Delphi7)

Question

Je suis &#224; cr&#233;er un programme de gestion de films et j'utilise une base donn&#233;e DBase3.


J'aimerais r&#233;cup&#233;rer le texte issu d'un combobox en utilisant une instruction If.. Then ..Else.


Plus pr&#233;cis&#233;ement, j'aimerais que lorsque le champ texte du DBComboBox affiche 'DVD', que le programme v&#233;rifie si c'est bien 'DVD' qui est dans la fiche, pour ensuite afficher une image de DVD. Si le texte est 'VHS', le programme afficherait une image de cassette VHS.



Le composant DBComboBox utilise la table des films et lit chaque enregistrement, dont le champ TYP_SUP. (Type de support)


Merci!


jgagnon

f0xi · Answer

DBComboBox.Text 
ou encore, 
DBComboBox.Items[DBComboBox.ItemIndex]

______________________________________________
try
  WhiteNight := Gloup(Kawa);
exept
  on GloupOverFlow do GoToWaterClosed;
end;

jgagnon · Answer

Merci pour la r&#233;ponse,

J'ai r&#233;gl&#233; le probl&#232;me avec ce code.

procedure TFormFilm.DataSource1DataChange(Sender: TObject; Field: TField); //lit le texte du DBCombobox
begin
FormFilm.Image1.Visible:=false;         //cache l'image de dvd
FormFilm.Image2.Visible:=false;         //cache l'image de vhs
FormFilm.Label1.Visible:=false;
if FormFilm.DBComboBox1.Text='DVD' then   //si le texte du DBComboBox est 'DVD'
FormFilm.Image1.Visible:=true  //alors affiche l'image de dvd
else       //sinon
FormFilm.Image2.Visible:=true; //affiche l'image de vhs


if FormFilm.DBComboBox2.Text='1' then     // si le texte du DBComboBox est '1'
FormFilm.Label1.visible:=true             // alors affiche le libell&#233; qui indique que le film est d&#233;j&#224; lou&#233;
else                           //sinon
FormFilm.Label1.visible:=false;       // cache le libell&#233;
end;

Merci encore

Jgagnon

Comment récupérer le texte dans un DBComboBox ? (Delphi7)

2 réponses

Votre réponse

Discussions similaires