Estou tendo problemas com Delphi 7

[dragonpool12 9]

Bom, baseado neste código;

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Estou querendo que sEdit6.Text := FloatToStr(N1 - N4); quero que o valor do N1, faça uma subtração do N4.

 

Mas conforme tem outros códigos sEdit7.Text := FloatToStr(Dividir * N3); apresenta um erro quando tento apertar o botão 'Calcular', alguém saberia me dizer como utilizar uma função encima de outra?

 

 

A mensagem do erro é 'is not a valid floating point value'.

[DarkShade 52]

Certifique-se que todos os Edits que você usa estejam com algum valor, após isso verifique se você usou valores como "12,5 / 26.20", não me lembro se o Delphi aceita "," ou ".".

[dragonpool12 9]

Sim, todas estão com valores, e ele aceita assim, 630,00,

 

var

N1, N2, N3, N4, C, Dividir : real;

 

 

begin

N1 := StrToFloat(sEdit1.Text);

N2 := StrToFloat(sEdit2.Text);

N3 := StrToFloat(sEdit3.Text);

N4 := StrToFloat(sEdit7.Text);

 

 

Dividir := (N1/N2);

C := N1 - N4;

 

sEdit4.Text := FloatToStr(Dividir);

sEdit7.Text := FloatToStr(Dividir * N3);

sEdit6.Text := FloatToStr©;

end;

 

N1 = 630,00

N2 = 180

N3 = 8

N4 = Divisão do N1 / N2;

 

Olha, você olhando bem, o código pode me ajudar?

[DarkShade 52]

O código está certo, é como eu disse, há algum sEdit seu que está com algum valor não numérico/float.

[dragonpool12 9]

Bom, o código foi passado para;

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Funcionou perfeitamente, mas quando coloco 2 faltas na empresa, o salário continua 630,00, não está fazendo a subtração corretamente.