Fórum Combobox #190068
22/10/2003
0
Texto Valor
Laranja 30
Abacate 23
Mamao 16
quando o cliente escolher um item desejo pegar como resposta o valor e nao o itemindex e possivel?
Mr_joni
Curtir tópico
+ 0Posts
22/10/2003
Osocram
colocar um ´case itemindex ´ e fixar o valor...
vc pod tbm qdo o cliente escolher o item... vc pegar o valor do texto tipo
combobox.text eu acho.
Gostei + 0
22/10/2003
Ecie
Gostei + 0
22/10/2003
Mr_joni
Obrigado.
Gostei + 0
22/10/2003
Mr_joni
Como eu coloco varios valores no combobox.text?
Obrigado.
Gostei + 0
22/10/2003
Osocram
no texto vc escreve
Abacate -> 50
o simbolo ´ -> ´ eh so p vc ter um simbolo de separacao entre o nome e o valor...
dae qdo o cliente clicar em algum item vc faz assim...
var
valor:string;
......
valor := strpos(Pchar(Combobox.text),Pchar(´ -> ´));
valor := stringReplace(valor,´ -> ´, ´´);
Gostei + 0
22/10/2003
Helderjr
Gostei + 0
22/10/2003
Beppe
Combo.Items.Objects[0] := TObject(30);
Combo.Items.Objects[1] := TObject(30);
Combo.Items.Objects[2] := TObject(90);
Combo.Items.Objects[3] := TObject(40);
Combo.Items.Objects[4] := TObject(90);
Combo.Items.Objects[5] := TObject(20);
Combo.Items.Objects[6] := TObject(80);
Combo.Items.Objects[7] := TObject(20);
Para recuperar o valor: Integer(Combo.Items.Objects[Combo.ItemIndex])
A propriedade é do tipo TObject, por isso os typecasts.
Ou cria um array.
Ataliba
Gostei + 0
22/10/2003
Adilsond
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Clear;
ComboBox1.Items.AddObject(´Laranja´,TObject(30));
ComboBox1.Items.AddObject(´Abacate´,TObject(23));
ComboBox1.Items.AddObject(´Mamao´,TObject(16));
ComboBox1.ItemIndex := 0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ComboBox1.ItemIndex > -1 then
Edit1.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;
Gostei + 0
22/10/2003
Mr_joni
Obrigado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)