Pegando direto da ComboBom

Delphi

10/03/2004

Eu uso a combobox dessa maneira:
na leitura...
if TIPO = ´A´ then ComboBox.ItemIndex := 0;
if TIPO = ´B´ then ComboBox.ItemIndex := 1;
if TIPO = ´C´ then ComboBox.ItemIndex := 2;
na gravação...
Case Combobox.ItemIndex of
0 : ParambyName(´X´).AsString =´A´;
1 : ParambyName(´X´).AsString =´B´;
2 : ParambyName(´X´).AsString =´C´;

Gostaria de saber se dá para fazer de uma maneira mais direta... tipo
ler...
Combobox.Text := X.AsSting
gravar...
X.AsString := ComboBox.Text

Obrigado


Jonnymarques

Jonnymarques

Curtidas 0

Respostas

Kyonak

Kyonak

10/03/2004

Simples

ParambyName(´X´).AsString = ComboBox.text;

eh isso neh?


GOSTEI 0
Adriano Santos

Adriano Santos

10/03/2004

...ParamByName(´X´).AsString := ComboBox1.Items[ComboBox1.ItemIndex];

assim você evita de pegar todo o conteúdo do items (quando usando Combobox.Text), o que resultaria em um erro.


GOSTEI 0
Kyonak

Kyonak

10/03/2004

...ParamByName(´X´).AsString := ComboBox1.Items[ComboBox1.ItemIndex]; assim você evita de pegar todo o conteúdo do items (quando usando Combobox.Text), o que resultaria em um erro.


Skyhawk

o combobox.text só pega o valor que está sendo exibido no momento, e não todos os valores
entao o ParamByName(´X´).AsString := combobox.text funcionaria perfeitamente


GOSTEI 0
POSTAR