Edit receber valor conforme conteudo do combobox?

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

[color=red:7db61cbfb3]Título editado por Massuda. Por favor, não escreva o texto/título usando apenas letras maiúsculas.[/color:7db61cbfb3]



Ciro_cj

Respostas

16/03/2006

Adriano Santos

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&93; = ´01´ then
    Edit1.Text := ´seu texto´
  else if ComboBox1.Items&91;ComboBox1.ItemIndex&93; = ´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


Responder Citar

16/03/2006

Martins

[quote]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&93; = ´01´ then
    Edit1.Text := ´seu texto´
  else if ComboBox1.Items&91;ComboBox1.ItemIndex&93; = ´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


Responder Citar

16/03/2006

Adriano Santos

Só um detalhe que esqueci

  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;



Responder Citar