traira007 Postado Setembro 27, 2006 Denunciar Share Postado Setembro 27, 2006 procedure TForm3.RESULTADOSClick(Sender: TObject);beginif form2.RadioGroup1.ItemIndex=0 thenedit1.Text:=strtofloat(edit1.text) +1elseedit5.Text:=strtofloat(edit5.text) +1;beginif form2.RadioGroup2.ItemIndex=2 thenedit1.Text:=strtofloat(edit1.text) +1elseedit5.Text:=strtofloat(edit5.text) +1 ;beginif form2.RadioGroup3.ItemIndex=1 thenedit1.Text:=strtofloat(edit1.text) +1elseedit5.Text:=strtofloat(edit5.text) +1 ;beginif form2.RadioGroup4.ItemIndex=0 thenedit1.Text:=strtofloat(edit1.text) +1elseedit5.Text:=strtofloat(edit5.text) +1;beginif form2.RadioGroup5.ItemIndex=3 thenedit1.Text:=strtofloat(edit1.text) +1elseedit5.Text:=strtofloat(edit5.text) +1 ;beginif form2.RadioGroup6.ItemIndex=0 thenedit1.Text:=strtofloat(edit1.text) +1elseedit5.Text:=strtofloat(edit5.text) +1end;end;end;end;end;end;end.alguém da uma mao? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Setembro 27, 2006 Denunciar Share Postado Setembro 27, 2006 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 28, 2006 Denunciar Share Postado Setembro 28, 2006 opaisso talvez ajudahttp://scriptbrasil.com.br/forum/index.php...st&p=379914abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.