F�rum Logica n�o funciona...! #484681

06/07/2014

Pessoal,os dados que s�o selecionados no combobox,atualiza os campos dos edt,quando seleciono o idex =0 ele atualiza o que est� no if corretamente.
mais quando seleciono o idex = 1 ele atualiza somente o edit1.mais o edit2,e edit3,pega sempre o que foi selecionado no idex = 0..
eu n�o sei o que est� acontecendo,vcs entenderam?existe algo que posso fazer para melhorar essa logica..?

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex= 0 then
edit1.text :=('0');
edit2.text := ('0');
edit3.text := ('0');

begin
if Combobox1.ItemIndex = 1 then
 edit1.text :=('1');
edit2.text := ('1');
 edit3.text := ('1');

Valter Sousa

Curtir t�pico

+ 0

Responder

Post mais votado

06/07/2014

Bom dia Valter,

tente assim:

begin
  if ComboBox1.ItemIndex = 0 then
  begin
    edit1.text := ('0');
    edit2.text := ('0');
    edit3.text := ('0');
  end;

  if ComboBox1.ItemIndex = 1 then
  begin
    edit1.text := ('1');
    edit2.text := ('1');
    edit3.text := ('1');
  end;
end;

Marcos Saffran

Responder

Gostei + 1

Mais Posts

06/07/2014

Fabiano Carvalho

N�o conhe�o Delphi, mas n�o existe um END antes do segundo begin n�o?

Responder

Gostei + 0

07/07/2014

Vinicius Berto

Tenta assim:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];
end;

Responder

Gostei + 1