Formatação

Delphi

02/04/2003

Galera ..Estou com esse problema .. qdo o valor do edit passa de 1.000,00
da um erro de ponto flutuante ..
... Qual tipo de dado devo usar ? minha rotina é essa


Var
ValorSomado,ValorTotal:Currency;
Resultado:String;
begin
If Trim(Edit_ValorTotal2.Text) <> ´´ Then
Begin
ValorTotal:=StrToCurr(Edit1.Text);
ValorSomado:=StrToCurr(Edit_ValorTotal2.Text);
Edit1.Text:=(FormatCurr(´#,0.00´,(ValorSomado + Valortotal)));
End
Else
Edit_Cod2.SetFocus;
end;

Tentei usar o Strtofloat mas tbem nada ..


C-t

C-t

Curtidas 0

Respostas

Midas

Midas

02/04/2003

[quote:50905ddf55=´C-T´]Galera ..Estou com esse problema .. qdo o valor do edit passa de 1.000,00
da um erro de ponto flutuante ..
... Qual tipo de dado devo usar ? minha rotina é essa


Var
ValorSomado,ValorTotal:Currency;
Resultado:String;
begin
If Trim(Edit_ValorTotal2.Text) <> ´´ Then
Begin
ValorTotal:=StrToCurr(Edit1.Text);
ValorSomado:=StrToCurr(Edit_ValorTotal2.Text);
Edit1.Text:=(FormatCurr(´#,0.00´,(ValorSomado + Valortotal)));
End
Else
Edit_Cod2.SetFocus;
end;

Tentei usar o Strtofloat mas tbem nada ..[/quote:50905ddf55]


que tal mudar o tipo das variaveis para real
ValorSomado,ValorTotal:real;


GOSTEI 0
C-t

C-t

02/04/2003

CARA OBRIGADO!!! PELA AJUDA .


GOSTEI 0
POSTAR