Erro formatação do QRLabel no Quick Report

Delphi

26/09/2012

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.
Célio Morais

Célio Morais

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

26/09/2012

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%..



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;
GOSTEI 0
POSTAR