Erro No Case

[traira007]

Galera

procedure TForm3.RESULTADOSClick(Sender: TObject);

begin

case form2.RadioGroup1.itemindex of

0:Edit1.text := FloatToStr(strtofloat(edit1.text) +1) ;

1:Edit5.text := FloatToStr(strtofloat(edit1.text) +1) ;

2:Edit5.text := FloatToStr(strtofloat(edit1.text) +1) ;

3:Edit5.text := FloatToStr(strtofloat(edit1.text) +1) ;

end ;

o que pode está acontecendo aí? ele da erro aqui o

is not a valid floating point value

HElp aí

[Churc]

opa

você está fazendo de um jeito complicado ehehe

pelo que vi em outro tópico você quer fazer um jogo de pergunta e respostas?

diga mais ou menos como é esse jogo que eu faço um exemplo pra você

abraços

[traira007]

fala cara..o jogo é dividi em 3 partes velho..

1 para o inico,

2 para perguntas e

3 para resultados

no resultados a varios campos de resultados das repostas corretas,tipo porcentagem,media de acertos,perguntas certa e erradas dentre outros para dados estatisticos..

[Thales Pontes Martins]

desculpe me intrometer, mas aquele end; do código do traira007 é o end; do case ou da procedure? porque se for o end; da procedure então está faltando o end; do case. Me desculpe se estiver errado.

[Guest Visitante]

cara,o codigo está certo mesmo,pois se não fosse nem rodava cara..

é erro de float

[Micheus]

traira007, se por algum motivo você passar um valor nulo (Edit1.Text = '') ou algo que não seja um núvel válido, haverá erro na conversão.

Seria conveniente você testar o valor digirado no Exit do edit, de modo a validá-lo.

Em todos os casos você pode utilizar StrToFloatDef(Edit1.Text, 0) que retornará um valor padrão em caso de erro na conversão.