Anzahl der Nachkommastellen von Double ermitteln

[bcvs]

Zitat von gammatester:

@bcvs: Die kleinste Doublezahl hat 1074 Nachkommastellen.

Schon klar, aber um die geht es ja hier nicht. Aber wenn ich den Weg über eine String-Umwandlung gehe, muss ich mir vorher überlegen, wieviele Nachkommastellen mein Wert maximal haben könnte. Bei der Verwendung von .ToString wie in Himitsus Beispiel sind es max 18.

[EWeiss]

Zitat:

Und nun nur noch ein paar böse Stringmisshandlungen

Viele Wege führen nach Köln.
Ob ein oder Mehrzeiler spielt doch keine rolle.
Zudem solltest du mal differenzieren.. welche Delphi Version verwendet wird.
Unter D2010 gibt es kein "MyDouble.ToString" oder "MyDouble.ToString(ffFixed, 15, 18).TrimRight"
Du solltest also nicht pauschal von deinen Begebenheiten auf andere schließen.

Ich hätte meine Variante auch als Einzeiler erstellen können nur wie gesagt D2010 kennt keinen StringHelper in welcher Form auch immer.

Zitat:

Noch ein letzes Mal: Es gibt kein Double, das 0.00000023 enthält, das nächste darstellbare Double ist:

Das Zitat!

Zitat:

Wenn im Double:
- 0.00000023 steht, soll der String: "0.00000023" sein

war nicht von mir..

Zitat:

Die gewünschte String-Repräsentation bekomme ich schon hin:
FloatToStrF(AValue,ffFixed,15,DecimalPlaces);

Daran hatte ich auch gedacht..
Nur wenn ich es so gemacht hätte erübrigt sich die frage nach der Anzahl der Nachkommastellen.
Weil du diese dann MAX selbst festlegst.
Wie in dem Fall MyDouble.ToString(ffFixed, 15, 18) 18!

Du kennst dann die Maximale Nachkommastellen warum dann noch ermitteln.

gruss

[himitsu]

Für die Funktionen aus den etwas neueren Helpern gibt es auch entsprechende "alte" Pascalfunktionen, die zufällig oftmals gleich/ähnlich heißen.

Die prozeduale Syntax sähe z.B. so aus.

Delphi-Quellcode:

EinStringMitMöglichstWenigenNachkommastellen := TrimRight(TrimRight(FloatToStrF(MyDouble, ffFixed, 15, 18), ['0']), [FormatSettings.DecimalSeparator]);

AnzahlDerNachkommastellen := Pos(FormatSettings.DecimalSeparator, ReverseString(TrimRight(FloatToStrF(MyDouble, ffFixed, 15, 18), [0]))) - 1;

// mir Leerzeichen für das Trim
AnzahlDerNachkommastellen := Pos(FormatSettings.DecimalSeparator, ReverseString(TrimRight(ReplaceStr(FloatToStrF(MyDouble, ffFixed, 15, 18), '0', ' ')))) - 1;

Schade ist nur, dass Trim/TrimRight/TrimLeft der StrUtils nur Leer- und Steuerzeichen kennen, aber für TrimRight wird es bestimmt auch irgendwo eine alternative Funktion geben.


Nja, einige der bekannten String-Funktionen fehlt noch im Helper und dafür gibt es auch ein bissl was Neues, welches die Prozedualen noch nicht kennen.



Vorteil der Helper ist, dass Funktionen in der Reihenfolge ihrer Anwendung im Code stehen, also hintereinander.
Beim Prozedualen stehen sie in umbekehrter Reihenfolge, mit dem Result des Vorgängers als Parameter.

[EWeiss]

Jo so wäre es auch gegangen

PS:

Zitat:

Vorteil der Helper ist,

Finde es gut das diese in Delphi portiert wurden.. kenne es auch nicht anders unter C++.
Hat schon seine Vorteile.

gruss