Dúvida/Problema com Delphi Divisão e Multiplicação

[dragonpool12 9]

Bom, estou tendo um problema com a a divisão + soma, no Delphi 7, irei mostrar o código abaixo, e o que aparecer quando clico em compilar.

 

procedure TForm1.sButton1Click(Sender: TObject);

var

A : Currency;

B : Currency;

C : Currency;

D : Currency;

Dividir : Currency;

 

 

begin

A := StrToFloat(sEdit1.Text);

B := StrToFloat(sEdit2.Text);

C := StrToFloat(sEdit3.Text);

D := A / B * C;

Dividir := A / B;

 

 

sEdit4.Text := FloatToStr(Dividir);

sEdit6.Text := sEdit1.Text;

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

 

 

end;

 

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

• Entre
• ou
• Cadastre-se

 

 

Eu quero que o sEdit7, receba a divisão do "Dividir", e multiplique o "D", pegar o valor do "Dividir" e de imediato multiplicar por "D", tudo isso para aparecer no sEdit7.

 

conseguiu entender?

 

Sabe como corrigir? Por favor me ajude, grato deis de Já!

[DarkShade 52]

Você está tentando multiplicar strings na última linha, mude para:

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

• Entre
• ou
• Cadastre-se

[dragonpool12 9]

Cara, muito obrigado, funcionou perfeitamente, e ainda fez a divisão que eu queria!

 

@Outra dúvida

 

Bom, as divisões, estão com resultados assim : 38,445564345, dizima periódicas, como faço para corrigir isto? Já tentei com Var real, string, ...

[DarkShade 52]

Use FormatFloat()