combobox e edit delphi7

Delphi

02/04/2018

tenho duas combobox1 combobox2

combobox1 = t <= 10
combobox2 = 1

queria se esses dois coincidirem usar valor 20 na edit 1
Marcos

Marcos

Curtidas 0

Melhor post

Douglas Sousa

Douglas Sousa

02/04/2018

Boa tarde,

Não ficou bem claro sua duvida, caso os dois combobox tenham o mesmo valor jogar 20 no edit1 ?

pelo que entendi seria isso ?

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ComboBox1.Text = ComboBox2.Text then
     Edit1.Text := IntToStr(20)
     else
     Edit1.Text := '';
end;

end.
GOSTEI 1

Mais Respostas

Marcos

Marcos

02/04/2018

Os dois combobox tem valores diferentes o combobox 1 (t <= 10) e o combobox 2 (1) e pra sair na edit o valor de 20
GOSTEI 0
Douglas Sousa

Douglas Sousa

02/04/2018

eu não entendi é onde entra o t ? seria uma variavel ? posta seu codigo não to conseguindo compreender a logica!
GOSTEI 0
Marcos

Marcos

02/04/2018

procedure TForm4.ComboBox5Change(Sender: TObject);


begin
if combobox4.Text = 't <= 10 ' then
if combobox5.Text = '2 anos' then;
edit5.text := '134';

end;



O que vai mandar o valor para o edit e justamento o segundo item que eu assinalar no combobox2 ai ja sairia o valor la no edit

No caso escolheria a primeira variavel na combobox1 depois a segunda na combobox2 e dependendo do que marquei iria um valor ate o edit 5
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

02/04/2018

Tente ser mais claro...
Qual é o seu real objetivo?
Está me parecendo Parcelas e Datas de vencimentos....
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

02/04/2018

Veja :

var Valor_CBX1,Valor_CBX2:integer;
begin
try
Valor_CBX1:=0;
Valor_CBX2:=0;
Valor_CBX1:=StrToInt(ComboBox1.Text);
Valor_CBX2:=StrToInt(ComboBox2.Text);

 if ((Valor_CBX1=10)or (Valor_CBX1<10)) and (Valor_CBX2=2) then
 begin
   Edit1.Text:='seu result';
 end
 else
 begin
Edit1.Clear;
 end;



except
end;

end;
GOSTEI 1
Natanael Ferreira

Natanael Ferreira

02/04/2018

Marcos, se entendi bem o que você precisa talvez o código abaixo possa te ajudar:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ComboBox1.Text = 't <= 10') and (ComboBox2.Text = '1') then
    Edit1.Text := '20'
  else
    Edit1.Text := '';
end;
GOSTEI 1
Marcos

Marcos

02/04/2018

Boa tarde quero que ao escolher o item na combobox2 ja sair o valor na edit

tem 3 variáveis em combobox1
t <= 10
10 <= t <= 20
t > 20

tem 5 variáveis em combobox2
1 ano
2 anos
3 anos
4 anos
5 anos

so que cada resultado desse tem uma variavel interligada na combobox2 ou seja se escolher na combobox1 o item de t <= 10 e na combobox2 o item de 1 ano sair o valor na edit5 de 94
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

02/04/2018

Veja se este exemplo ajuda, código no evento OnSelect do Combobox2:

procedure TForm1.ComboBox2Select(Sender: TObject);
begin
  if (ComboBox1.Text = 't <= 10') and (ComboBox2.Text = '1 ano') then
    Edit5.Text := '94'
  else
    Edit5.Text := '';
end;
GOSTEI 0
Marcos

Marcos

02/04/2018

Não deu certo pq sao varios intervalos tipo:

combobox1 t <= 10 combobox2 1 ano ai sair na edit 94
combobox1 t <= 10 combobox2 2 anos ai sair na edit 10
combobox1 t <= 10 combobox2 2 anos ai sair na edit 4
combobox1 t <= 10 combobox2 2 anos ai sair na edit 5
combobox1 t <= 10 combobox2 2 anos ai sair na edit 20
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

02/04/2018

Estamos tentando ajudar, mais a cada resposta, parece ficar confuso.
Na sua ultima resposta o valor do combobox1 é sempre o mesmo: t <= 10

Só ocorre alteração no combobox2.

É isso mesmo? Se sim vamos resolver realizando um case no combobox2
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

02/04/2018

Post todos os items dos 2 combobox
GOSTEI 0
Marcos

Marcos

02/04/2018

é assim a combobox 1 consta 3 itens so que cada item dessa combobox pode ser escolhida entre os 5 da combobox2
t <= 10
10 <= t <= 20
t > 20

itens da combobox2
1 ano
2 anos
3 anos
4 anos
5 anos


ou seja para cada item da combobox 1 tem 5 na combobox2 se for escolhido qualquer item da combobox 1 e da combobox2 usar um valor qualquer pra retornar na edit como se for de confimacao entedi

se escolher o item na combobox1 de t <= 10 e na combobox 2 1 ano queria que saísse na edit 5 o valor de 94 do mesmo jeito nas outras confirmações
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

02/04/2018

Isso eu entendi, o que eu não conseguir entender qual é a sua dificuldade.

Você precisa validar 3 ITENS do combobox1.
Veja abaixo, altere para a sua realidade Edit5.Text:='o valor desejado';


// VALIDAÇÃO PARA ITEM 1 DO CBX1
if (ComboBox1.Text='t <= 10') and (ComboBox2.Text='1 ano')then
Edit5.Text:='94';
if (ComboBox1.Text='t <= 10') and (ComboBox2.Text='2 anos')then
Edit5.Text:='93';
if (ComboBox1.Text='t <= 10') and (ComboBox2.Text='3 anos')then
Edit5.Text:='92';
if (ComboBox1.Text='t <= 10') and (ComboBox2.Text='4 anos')then
Edit5.Text:='91';
if (ComboBox1.Text='t <= 10') and (ComboBox2.Text='5 anos')then
Edit5.Text:='90';


// VALIDAÇÃO PARA ITEM 2 DO CBX1
if (ComboBox1.Text='10 <= t <= 20') and (ComboBox2.Text='1 ano')then
Edit5.Text:='84';
if (ComboBox1.Text='10 <= t <= 20') and (ComboBox2.Text='2 anos')then
Edit5.Text:='83';
if (ComboBox1.Text='10 <= t <= 20') and (ComboBox2.Text='3 anos')then
Edit5.Text:='82';
if (ComboBox1.Text='10 <= t <= 20') and (ComboBox2.Text='4 anos')then
Edit5.Text:='81';
if (ComboBox1.Text='10 <= t <= 20') and (ComboBox2.Text='5 anos')then
Edit5.Text:='80';


// VALIDAÇÃO PARA ITEM 3 DO CBX1
if (ComboBox1.Text='t > 20') and (ComboBox2.Text='1 ano')then
Edit5.Text:='74';
if (ComboBox1.Text='t > 20') and (ComboBox2.Text='2 anos')then
Edit5.Text:='73';
if (ComboBox1.Text='t > 20') and (ComboBox2.Text='3 anos')then
Edit5.Text:='72';
if (ComboBox1.Text='t > 20') and (ComboBox2.Text='4 anos')then
Edit5.Text:='71';
if (ComboBox1.Text='t > 20') and (ComboBox2.Text='5 anos')then
Edit5.Text:='70';


GOSTEI 0
POSTAR