820  14

 FloatToDecimal       Ex-
tended  Currency   ,    
  .    Extended -
 Precision      1  18.   
Currency  Precision ,     19
.

 Decimals        -
 .  ,  Precision  Decimals  -
   .      -
      ,   Decimals
 9999.

      TFIoatRec, 
:

Exponent       .  -
  1,   Exponent   , -
        -
 .    NAN ( ), Exponent -
 -32768.   INF  -INF (   -
),  Exponent = 32767

Negative     true,     
false

Digits         ,   18 ( Exten-
ded)  19 ( Currency)  .   
.   .    ,
NAN  INF, Digits    

     FloatToDecimal:

struct TFIoatRec Result;

Extended Value = ... ;

FloatToDecimal(Result, &Value,fvExtended,18,9999) ;

   Value  :

Value	Exponent	Negative	Digits
123.4567890123456789	3	false	123456789012345681
1234567890123456789	19	false	123456789012345679
-0.001234567890123456789	-2	true	123456789012345671