Re: float value without power

["Steve" <nospam_steved94@attbi.com>]

"Etienne Baudin" <pfox@pas.de.spam.free.fr> wrote in message
news:bcs323$925$1@news-reader13.wanadoo.fr...
> If F is 123.456
> float'image(F) will be 1.2346e2. I Would like to get 123.465 in the
string,
> is it possible ?

Here's how I do it:

with Ada.Float_Text_Io;
with Ada.Strings;
with Ada.Strings.Fixed;
with Ada.Text_Io;
procedure DemoFormat is

  function Float_To_String( f : Float; aft : Natural ) return String is
    result : String( 1 .. 64 );
  begin
    Ada.Float_Text_Io.Put( result, f, aft, 0 );
    return Ada.Strings.Fixed.Trim( result, Ada.Strings.Both );
  end Float_To_String;

begin
  Ada.Text_IO.Put_Line( Float_To_String( 123.456, 3 ) );
end DemoFormat;

Steve
(The Duck)

>
> Thanks
> Etienne
>
>