Einzelnen Beitrag anzeigen

AndyDF

Registriert seit: 6. Sep 2006
Ort: Allgäu
93 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#9

AW: Anzahl der Nachkommastellen von Double ermitteln

  Alt 13. Sep 2018, 10:51
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...
Andreas Blenk
  Mit Zitat antworten Zitat