Fórum Pegando direto da ComboBom #219679
10/03/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
10/03/2004
Kyonak
Simples
ParambyName(´X´).AsString = ComboBox.text;
eh isso neh?
ParambyName(´X´).AsString = ComboBox.text;
eh isso neh?
Responder
Gostei + 0
10/03/2004
Adriano Santos
...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.
assim você evita de pegar todo o conteúdo do items (quando usando Combobox.Text), o que resultaria em um erro.
Responder
Gostei + 0
10/03/2004
Kyonak
...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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)