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