Anzahl der Nachkommastellen von Double ermitteln

[AndyDF]

Danke für eure Antworten.

Nicht die exakte Darstellung. Nur die Anzahl der NS meiner gerundeten Double Zahl.
Also bei der Zahl 4512985.95 möchte ich 2 erhalten. => 2NS.
Bei der Zahl 0.00000023 möchte ich 8 erhalten. => 8NS

Dieser Code funktioniert schon mal ganz gut. Danke für den Link!
In meinem Fall werden die Werte max. 8-10 NS haben.

Delphi-Quellcode:

function GetDecimalPlaces(AValue: Double): Integer;
const
  e = 0.0000000001;
var
  r: Extended;
begin
  Result := 0;

  if AValue < 0 then
    AValue := AValue * -1;

  r := Int(AValue);
  while ((Frac(AValue) <> 0) and ((AValue - r) > e)) do
  begin
    Inc(Result);
    AValue := AValue * 10;
    r := Int(AValue+e);
  end;
end;

[EWeiss]

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

[AndyDF]

Zitat von EWeiss:

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...

[EWeiss]

Zitat von AndyDF:

Zitat von EWeiss:

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...

Ja nun das ist das Problem was @Sherlock schon angesprochen hat.

Zitat:

Das Thema ist aufgrund der internen Darstellung von Gleitkommazahlen nicht ganz ungefährlich.

Es liegt doch an dir einfach nur den Double wert korrekt zum String zu konvertieren.
Danach ist es so wie @gammatester sagte..

Zitat:

Wenn Du die Zahl als String hast, kannst Du einfach zählen.

gruss

[AndyDF]

Zitat von EWeiss:

Es liegt doch an dir einfach nur den Double wert korrekt zum String zu konvertieren.

Ja genau, hier habe ich noch keine Lösung. Dann wäre das Zählen natürlich einfach.
Wie konvertiere ich einen Double-Wert in einen String, so das dieser immer passt.

d.h.:
- keine Darstellung wie "2,3E-7"
- keine zusätzlichen Stellen außer die gewünschten NS

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

Für beliebige (gerundete) Double Werte.

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

Aber hierfür fehlt mir genau die Information der Nachkommastellen (DecimalPlaces).

[bcvs]

Ich denke, du musst dir überlegen, wieviele Nachkommastellen dein Wert maximal haben kann. Dann auf diese Anzahl Stellen gerundet in einen String konvertieren und die Nachkommastellen zählen.

[gammatester]

[QUOTE=AndyDF;1413102]

Zitat von EWeiss:

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

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

0.000000229999999999999994886021640293216616868221 535696648061275482177734375

Was willst Du denn zB für 1e-100 sehen? Das wirst Du wahrscheinlich mit Delphi-Bordmitteln nicht im Fix-Format darstellen können.

@bcvs: Die kleinste Doublezahl hat 1074 Nachkommastellen.

[himitsu]

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

[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.

[gammatester]

Zitat von AndyDF:

Nicht die exakte Darstellung. Nur die Anzahl der NS meiner gerundeten Double Zahl.
Also bei der Zahl 4512985.95 möchte ich 2 erhalten. => 2NS.
Bei der Zahl 0.00000023 möchte ich 8 erhalten. => 8NS

Das Problem ist doch, dass die Zahlen nicht exakt dargestellt werden können und die auf die nächste Fließkommazahlen gerundeten Werte so viel Nachkommastellen haben. Damit drehst Du Dich im Kreis: Wenn Du schon vorher die gewünschte Stellenzahl für die Formatierung hast, braucht Du sie nicht zu bestimmen. Wenn Du die Zahl als String hast, kannst Du einfach zählen.