(Resolvido) erro na verificação

[pangare]

Alguém me explica porque meu código só esta fazendo a primeira verificação e parando

var n1,n2,calculo:real;

begin

if (radiobutton1.Checked = true) and (edit2.Text <>'') then

begin

n1:=StrToFloat(dbtext2.Caption);

n2:=StrToFloat(edit2.text);

calculo:=n1*n2;

edit1.Text:=FloatToStr(calculo); //faz esta verificicação...

if (radiobutton2.Checked = true) and (edit2.Text >'0') then //não realiza esta

begin

n1:=StrToFloat(dbtext3.Caption);

n2:=StrToFloat(edit2.text);

calculo:=n1*n2;

edit1.Text:=FloatToStr(calculo);

[Jhonas]

em que evento esta esse código ?

coloque o codigo completo para pode te ajudar

abraço

[pangare]

salve Jhonas...

cara ta no evento "On Change" de um edit,dei uma modificada mas quando coloco a condição para verificar se o campo esta vazio não funciona

procedure TForm10.Edit2Change(Sender: TObject);

var n1,n2,calculo:real;

begin

if (radiobutton1.Checked) and (edit2.Text<>'') then //verifica se o radiobutton1 esta checado e o edit diferente de vazio

n1:=StrToFloat(dbtext2.Caption);

if (radiobutton1.Checked) and (edit2.Text<>'') //verifica se o radiobutton2 esta checado e o edit diferente de vazio

n1:=StrToFloat(dbtext3.Caption);

n2:=StrToFloat(edit2.text)

calculo:=n1*n2;

edit1.Text:=FloatToStr(calculo);

se poder me ajudar agradeceria passei o dia em cima disso hehe

[Jhonas]

Não utilize o evento On Change, pois cada vez que voce teclar no campo do edit o evento é chamado

utilize no evento OnExit ou em outro botão

abraço

[pangare]

Hum... legal... no caso apelei para um button hehehehe

mas muito obrigado pela atenção Jhonas