Und nun nur noch ein paar böse Stringmisshandlungen, als schlechte Beispiele für eine einzeilige Lösung.
Delphi-Quellcode:
EinStringMitMöglichstWenigenNachkommastellen := MyDouble.ToString(ffFixed, 15, 18).TrimRight([0]).TrimRight([FormatSettings.DecimalSeparator]);
AnzahlDerNachkommastellen := ReverseString(MyDouble.ToString(ffFixed, 15, 18).TrimRight([0])).IndexOf(FormatSettings.DecimalSeparator); // Reverse fehlt leider im StringHelper