Anzahl der Nachkommastellen von Double ermitteln

[AndyDF]

Zitat von EWeiss:

Warum so kompliziert?
Ein einfaches Splitten.

Delphi-Quellcode:

function GetLength(Value: Double): Integer;
var
  so: Integer;
  tResult: string;
begin

  tResult := FloatToStr(ABS(Value));
  so := InStr(1, tResult, ',');
  if (so <> 0) then
  begin
    Result := Length(MidStr(tResult, so + 1, Length(tResult)));
  end;
end;

LenValue := GetLength(4512985.95); Bei mir sind es 2 nicht mehr nicht weniger.

gruss

Kommt aber leider bei:

GetLength(0.00000023)

schon an seine Grenzen...