Código
var
strValue : string;
begin
strValue := FloatToStrF(AValue,ffFixed,18,ADecimal);
AValue := StrToFloat(strValue);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009