[rfps] --gt; Problema com FormatFloat

Delphi

02/10/2003

Pessoal estou usando Format Float p/ dar formatação.

p. ex.:

QRLblTot1.Caption := FormatFloat(´#,0.00´,StrtoFloat(str)+StrtoFloat(value));

Então ficará por exemplo

QRLblTot1.Caption=1.098,98

Certo, ta formatando certo. O Problema é que em outro lugar preciso pegar este valor e fazer uma conversão. tipo

var
f:double;

f:=StrToFloat(QRLblTot1.Caption);

Então aqui da erro, não é um Ponto Flutuante válido. Bem, não é mesmo, ali tenho o valor 1.098,98 q por causa do . não é um PF válido.

Então to fazendo gambiarra, tirando o ponto e atribuindo sem ele + ta dando trabalho. Alguém tem alguma dica melhor p/ este problema?


Rfpsatin

Rfpsatin

Curtidas 0

Respostas

Mmtoor

Mmtoor

02/10/2003

qual o BD?


GOSTEI 0
Rodrigo Coutinho

Rodrigo Coutinho

02/10/2003

Olá amigo faça o seguinte:

Var vValor: String;

vValor := ´1.000,00´;

Delete(vValor, Pos(´.´, vValor), 1);


showMessage( vValor );

teste este codigo.

[]s, Rodrigo Coutinho


GOSTEI 0
Rfpsatin

Rfpsatin

02/10/2003

To usando IB + o problema é em tempo de execução, nem passa p/ o BD.


Rodrigo, to fazendo exatamente isto e queria evitar...

será q da mesma forma q tem um format tem um desformat?


GOSTEI 0
POSTAR