Array
(
)

Subtração não mostra numeros quebrados

Ricieri
   - 04 abr 2006

Pessoal, estou fazendo uma subtração, mas na hora do resultado, ele tipo, se for pra mostrar R$ 0,50, ele só mostra R$ 1,00..
Veja o codigo:

#Código

function RetornaValor(texto:String):Real;
var
i:integer;
TextoAux:String;
begin
i:=1;
while i<= Length(Texto) do
begin
if (texto[i] in [´0´..´9´])or(Texto[i]=DecimalSeparator) Then
textoAux:=TextoAux+Texto[i];
i:=i+1;
end;
result:=strtoFloat(TextoAux);
end;

// Calculo de Troco

var valtotal, dinheiro, troco : real;

begin

valtotal := retornavalor(dbedit3.text);
dinheiro := retornavalor(dbedit6.text);
troco := dinheiro - valtotal;
dbedit7.text := FormatFloat(´#,00´, troco);


o que pode ser?


Paullsoftware
   - 04 abr 2006

[list:da5bd462b6]Mude[/list:u:da5bd462b6]#Código


function RetornaValor(texto:String):Real;

[list:da5bd462b6] para[/list:u:da5bd462b6]#Código

function RetornaValor(texto:String):Double;

[list:da5bd462b6] e [/list:u:da5bd462b6]#Código

dbedit7.text := FormatFloat(´#,00´, troco);

[list:da5bd462b6] para[/list:u:da5bd462b6]#Código

dbedit7.text := FormatFloat(´,,0.00´, troco);


não testei mais deve funcionar :wink:


Ricieri
   - 04 abr 2006

Valeu! Funcionou!