• 0
Sign in to follow this  
traira007

Erros No Button

Question

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?

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this