Subtração não mostra numeros quebrados

04/04/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:

[color=green:619a152682]
function RetornaValor(texto:String):Real;
    var
    i:integer;
    TextoAux:String;
        begin
          i:=1;
            while i<= Length(Texto) do
                 begin
                      if (texto[i&93; in &91;´0´..´9´&93;)or(Texto&91;i&93;=DecimalSeparator) Then
                        textoAux:=TextoAux+Texto&91;i&93;;
                        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);
[/color:619a152682]

o que pode ser?


Ricieri

Respostas

04/04/2006

Paullsoftware

[list:da5bd462b6]Mude[/list:u:da5bd462b6]
function RetornaValor(texto:String):Real; 

[list:da5bd462b6] para[/list:u:da5bd462b6]
function RetornaValor(texto:String):Double; 

[list:da5bd462b6] e [/list:u:da5bd462b6]
dbedit7.text := FormatFloat(´#,00´, troco);

[list:da5bd462b6] para[/list:u:da5bd462b6]
dbedit7.text := FormatFloat(´,,0.00´, troco);


não testei mais deve funcionar :wink:


Responder Citar

04/04/2006

Ricieri

Valeu! Funcionou!


Responder Citar