Einzelnen Beitrag anzeigen

Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.377 Beiträge
 
Delphi 2010 Architect
 
#7

AW: Anzahl der Nachkommastellen von Double ermitteln

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