Moeda com FormatToFloat - ajuda
16/03/2006
0
olhem o código e diga o que pode estar errado.
Ajudem
procedure TForm1.BtnCalculaClick(Sender: TObject);
begin
Atual:=StrToFloat(LeituraAtual.text);
Anterior:=StrToFloat(LeituraAnterior.text);
Resultado:=Atual-Anterior;
Consumo.Text:=FloatToStr(resultado);
ce:=Atual-anterior-(100);
tf:=ce*2;
if resultado >100 then
ConsEx.Text:=FloatToStr(ce)
else
begin
ConsEx.Text:=´Não Tributado´;
end;
if resultado >100 then
Totalfatura.Text:=FloatToStr(tf)
Totalfatura.Text:= Formattofloat(´#0.00´, StrTofloat(valor));
else
totalfatura.Text:=´Sem Valor Comercial´;
end;
procedure TForm1.BtnFecharClick(Sender: TObject);
begin
close;
end;
Ciro_cj
Posts
16/03/2006
Martins
procedure TForm1.BtnCalculaClick(Sender: TObject); begin Atual:=StrToFloat(LeituraAtual.text); Anterior:=StrToFloat(LeituraAnterior.text); Resultado:=Atual-Anterior; Consumo.Text:=FloatToStr(resultado); ce:=Atual-anterior-(100); tf:=ce*2; if resultado >100 then ConsEx.Text:=FloatToStr(ce) else begin ConsEx.Text:=´Não Tributado´; end; if resultado >100 then begin Totalfatura.Text:=FloatToStr(tf) Totalfatura.Text:= Formattofloat(´R$ #,0.00´, StrTofloat(valor)); end else totalfatura.Text:=´Sem Valor Comercial´; end; procedure TForm1.BtnFecharClick(Sender: TObject); begin close; end;
Boa sorte
16/03/2006
Renato.pavan
Espero ter ajudado
[]´s
Renato
16/03/2006
Martins
Correto, nem atentei para esse detalhe de grande relevancia, só arrumei a estrutura if dele.
Totalfatura.Text:= FormatFloat(´R$ #,0.00´, StrTofloat(valor));
Bela observação [b:d5ec56b93e]Renato[/b:d5ec56b93e]
16/03/2006
Adriano Santos
Correto, nem atentei para esse detalhe de grande relevancia, só arrumei a estrutura if dele.
Totalfatura.Text:= FormatFloat(´R$ #,0.00´, StrTofloat(valor));
Bela observação [b:d7613f43a2]Renato[/b:d7613f43a2][/quote:d7613f43a2]
Nossa, pode crer...confesso que li o tópico e não percebi tb.
16/03/2006
Alexandre_torres
Eu também estava com essa dúvida há algum tempo, e também não havia percebido este detalhe...
T+
Clique aqui para fazer login e interagir na Comunidade :)