Großen Float-Wert ohne Exponent darstellen?

[Ralf Kaiser]

Zitat von RoadR69:

also große Gleitkommazahlen ohne Exponent darstellen zu wollen macht meines Erachtens nicht viel Sinn, da dadurch eine mathematische Genauigkeit vorgegaukelt wird, die nicht existiert ...

http://docwiki.embarcadero.com/RADSt...ommaarithmetik

In meinem Fall geht es nicht um Genauigkeit. Eigentlich könnte ich "Trunc()" nehmen aber das ist bei solch großen Werten nicht anwendbar.

[Union]

Und wie wäre der Wechsel der Einheit, z.b kg oder t anstelle von g zu verwenden? Oder geht es um Geldbeträge?

[himitsu]

Mit Big-Number-Bibliotheken oder ganz einfach mit einem BCD-Typen würde sich das Problem von ganz alleine Lösen, ohne daß man selber etwas machen muß.

Wenn es eine Datenbank gibt, dann einfach DB-seitig erledigen,
oder z.B. Data.FmtBcd, Data.FmtBcd.TBcd, DoubleToBcd, BcdToStr usw.

[Bjoerk]

Delphi-Quellcode:

function ExtendedToDecimal(Number: extended): string;
var
  FloatRec: TFloatRec;
  DecimalSeparatorPosition: integer;
begin
  FloatToDecimal(FloatRec, Number, fvExtended, 18, 9999);
  Result := FloatRec.Digits;
  if Result = '' then
    Result := '0'
  else
  begin
    if FloatRec.Exponent > 0 then
      Result := Result + StringOfChar(#48, FloatRec.Exponent - Length(Result))
    else
      if FloatRec.Exponent < 0 then
        Result := StringOfChar(#48, -FloatRec.Exponent) + Result;
    if FloatRec.Exponent < 0 then
      DecimalSeparatorPosition := 1
    else
      DecimalSeparatorPosition := FloatRec.Exponent + 1;
    if DecimalSeparatorPosition <= Length(Result) then
      Insert(DecimalSeparator, Result, DecimalSeparatorPosition);
    if DecimalSeparatorPosition = 1 then
      Result := '0' + Result;
    if FloatRec.Negative then
      Result := '-' + Result;
  end;
end;