Array
(
)

Edit receber valor conforme conteudo do combobox?

Ciro_cj
   - 16 mar 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


Citação:
Título editado por Massuda.

Por favor, não escreva o texto/título usando apenas letras maiúsculas.



Adriano Santos
   - 16 mar 2006


Citação:
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


Citação:
Título editado por Massuda.

Por favor, não escreva o texto/título usando apenas letras maiúsculas.


#Código


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

#Código

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


Martins
   - 16 mar 2006


Citação:

Citação:
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


Citação:
Título editado por Massuda.

Por favor, não escreva o texto/título usando apenas letras maiúsculas.


#Código


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

#Código

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

O Mais indicado para para seu caso seria usar Case Of como passado pelo Adriano. Um vetor tb poderia ser criado, mas nesse caso seria melhor mesmo o Case.

Boa sorte


Adriano Santos
   - 16 mar 2006

Só um detalhe que esqueci

#Código


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 else dentro do case ou ainda:

#Código

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;