Fórum Erro formatação do QRLabel no Quick Report #424723
26/09/2012
0
Sres.
bom dia!
não estou conseguindo formatar a qrlabel no quick report. Gostaria que meajudasse. Abaixo, o código e o erro:
Código:
QRLabel36.Caption := FloatToSTRF(IBQuery5.FieldByName('TotalDespSSW').AsFloat, ffNumber,10,2);
Erro:
'44.544,55' is not a valid floating point value
Agradeço a ajuda!
Célio Morais.
bom dia!
não estou conseguindo formatar a qrlabel no quick report. Gostaria que meajudasse. Abaixo, o código e o erro:
Código:
QRLabel36.Caption := FloatToSTRF(IBQuery5.FieldByName('TotalDespSSW').AsFloat, ffNumber,10,2);
Erro:
'44.544,55' is not a valid floating point value
Agradeço a ajuda!
Célio Morais.
Célio Morais
Curtir tópico
+ 0
Responder
Posts
26/09/2012
Leonardo Xavier
Cara é o seguinte esta sendo informado este erro pois o float não reconhece a ',' como operador matemático mas sim o '.' então para você resolver seu problema utilize esta função que eu criei para você ver se resolve seu problema. Passe os valores para a função como string para que funcione 100%..
Para chamar é bem facil:
function ajustafloat(Const Texto:String):String;
var
I: integer;
A: String;
begin
A:='';
for I := 1 To Length(Texto) Do begin
if Texto[I]=',' then begin
A:=A+'.';
end else begin
A:=A+Texto[I];
end;
end;
result := A;
end;
Para chamar é bem facil:
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=ajustafloat(Edit1.Text); end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)