Edit receber valor conforme conteudo do combobox?
Galera Estou querendo fazer o seguinte:
Se o valor do items combobox for 01 o edit recebe o texto ´ciro´
Se o valor do items combobox for 02 o edit recebe o valor ´fabiano´
e assim por diante.
Obrigado pela Ajuda de Vocês
[quote:7db61cbfb3=´Moderação´][color=red:7db61cbfb3]Título editado por Massuda.
Por favor, não escreva o texto/título usando apenas letras maiúsculas.[/color:7db61cbfb3][/quote:7db61cbfb3]
Se o valor do items combobox for 01 o edit recebe o texto ´ciro´
Se o valor do items combobox for 02 o edit recebe o valor ´fabiano´
e assim por diante.
Obrigado pela Ajuda de Vocês
[quote:7db61cbfb3=´Moderação´][color=red:7db61cbfb3]Título editado por Massuda.
Por favor, não escreva o texto/título usando apenas letras maiúsculas.[/color:7db61cbfb3][/quote:7db61cbfb3]
Ciro_cj
Curtidas 0
Respostas
Adriano Santos
16/03/2006
Galera Estou querendo fazer o seguinte:
Se o valor do items combobox for 01 o edit recebe o texto ´ciro´
Se o valor do items combobox for 02 o edit recebe o valor ´fabiano´
e assim por diante.
Obrigado pela Ajuda de Vocês
[quote:725675ccc2=´Moderação´][color=red:725675ccc2]Título editado por Massuda.
Por favor, não escreva o texto/título usando apenas letras maiúsculas.[/color:725675ccc2]
[/quote:725675ccc2]if ComboBox1.Items[ComboBox1.ItemIndex] = ´01´ then Edit1.Text := ´seu texto´ else if ComboBox1.Items[ComboBox1.ItemIndex] = ´02´ then Edit1.Text := ´seu outro texto´
ou voce pode testar o ItemIndex do combobox
case ComboBox1.ItemIndex of 0: Edit1.Text := ´seu texto´; 1: Edit1.Text := ´seu texto´; 2: Edit1.Text := ´seu texto´; end;
No ultimo caso uso apenas o indice do item selecionado
Se nenhum item for selecionado o ItemIndex = -1
GOSTEI 0
Martins
16/03/2006
[quote:b28d5ea968=´Adriano Santos´]
ou voce pode testar o ItemIndex do combobox
No ultimo caso uso apenas o indice do item selecionado
Se nenhum item for selecionado o ItemIndex = -1[/quote:b28d5ea968]
O Mais indicado para para seu caso seria usar [b:b28d5ea968]Case Of[/b:b28d5ea968] como passado pelo [b:b28d5ea968]Adriano[/b:b28d5ea968]. Um vetor tb poderia ser criado, mas nesse caso seria melhor mesmo o Case.
Boa sorte
Galera Estou querendo fazer o seguinte:
Se o valor do items combobox for 01 o edit recebe o texto ´ciro´
Se o valor do items combobox for 02 o edit recebe o valor ´fabiano´
e assim por diante.
Obrigado pela Ajuda de Vocês
[quote:b28d5ea968=´Moderação´][color=red:b28d5ea968]Título editado por Massuda.
Por favor, não escreva o texto/título usando apenas letras maiúsculas.[/color:b28d5ea968]
[/quote:b28d5ea968]if ComboBox1.Items[ComboBox1.ItemIndex] = ´01´ then Edit1.Text := ´seu texto´ else if ComboBox1.Items[ComboBox1.ItemIndex] = ´02´ then Edit1.Text := ´seu outro texto´
ou voce pode testar o ItemIndex do combobox
case ComboBox1.ItemIndex of 0: Edit1.Text := ´seu texto´; 1: Edit1.Text := ´seu texto´; 2: Edit1.Text := ´seu texto´; end;
No ultimo caso uso apenas o indice do item selecionado
Se nenhum item for selecionado o ItemIndex = -1[/quote:b28d5ea968]
O Mais indicado para para seu caso seria usar [b:b28d5ea968]Case Of[/b:b28d5ea968] como passado pelo [b:b28d5ea968]Adriano[/b:b28d5ea968]. Um vetor tb poderia ser criado, mas nesse caso seria melhor mesmo o Case.
Boa sorte
GOSTEI 0
Adriano Santos
16/03/2006
Só um detalhe que esqueci
Você ainda pode usar um [b:cca2204a0b]else[/b:cca2204a0b] dentro do case ou ainda:
case ComboBox1.ItemIndex of 0: Edit1.Text := ´seu texto´; 1: Edit1.Text := ´seu texto´; 2: Edit1.Text := ´seu texto´; else Edit1.Text := ´nenhuma das opções acima forma selecionada´; end;
Você ainda pode usar um [b:cca2204a0b]else[/b:cca2204a0b] dentro do case ou ainda:
case ComboBox1.ItemIndex of -1: Edit1.Text := ´nada selecionado´; 0: Edit1.Text := ´seu texto´; 1: Edit1.Text := ´seu texto´; 2: Edit1.Text := ´seu texto´; else Edit1.Text := ´nenhuma das opções acima forma selecionada´; end;
GOSTEI 0