Erros No Button

[traira007]

procedure TForm3.RESULTADOSClick(Sender: TObject);

begin

if form2.RadioGroup1.ItemIndex=0 then

edit1.Text:=strtofloat(edit1.text) +1

else

edit5.Text:=strtofloat(edit5.text) +1;

begin

if form2.RadioGroup2.ItemIndex=2 then

edit1.Text:=strtofloat(edit1.text) +1

else

edit5.Text:=strtofloat(edit5.text) +1 ;

begin

if form2.RadioGroup3.ItemIndex=1 then

edit1.Text:=strtofloat(edit1.text) +1

else

edit5.Text:=strtofloat(edit5.text) +1 ;

begin

if form2.RadioGroup4.ItemIndex=0 then

edit1.Text:=strtofloat(edit1.text) +1

else

edit5.Text:=strtofloat(edit5.text) +1;

begin

if form2.RadioGroup5.ItemIndex=3 then

edit1.Text:=strtofloat(edit1.text) +1

else

edit5.Text:=strtofloat(edit5.text) +1 ;

begin

if form2.RadioGroup6.ItemIndex=0 then

edit1.Text:=strtofloat(edit1.text) +1

else

edit5.Text:=strtofloat(edit5.text) +1

end;

end;

end;

end;

end;

end;

end.

alguém da uma mao?

[Micheus]

traira007, cara você não deixou claro qual o problema, entretanto acho que o problema está nas atribuições.

você não pode mover Float para Text; para fazer isto você deverá utilizar algo como FloatToStr(strtofloat(edit1.text) +1);

Quando colocar o código aqui no forum, ele fica mais legível se utilizar a TAG

 (o botãozinho com o #)

[]s

[Churc]

opa

isso talvez ajuda

http://scriptbrasil.com.br/forum/index.php...st&p=379914

abraços