Logica não funciona...!

Delphi

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

Valter Sousa

Curtidas 0

Melhor post

Marcos Saffran

Marcos Saffran

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;
GOSTEI 1

Mais Respostas

Fabiano Carvalho

Fabiano Carvalho

06/07/2014

Não conheço Delphi, mas não existe um END antes do segundo begin não?
GOSTEI 0
Vinicius Berto

Vinicius Berto

06/07/2014

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