Extended mit mehr als 18 Stellen

[blackfoxx]

Hi Leutz,
Ich möchte einen Extended Wert mit FloatTostrF in eine reine Zahl Formatieren. Das funktioniert aber nur bis 18 Stellen. Was mache ich denn, wenn ich aber mehr als 18 als reine Zahl anzeigen möchte? :?:
Danke schonmal..

Greetz BlackFoXX

[ripper8472]

mehr als 18 stellen wird ein extended eh nicht haben.

edit: ok, ich hab gegoogelt und extended soll etwa 19 stellen hinkriegen. mehr aber auch nicht.

edit:
http://www.guidogybels.net/index.html?floats.html
ein extended hat 64 bit genauigkeit (rest ist exponent) und damit 19.266 dezimalstellen genauigkeit

[ichbins]

sonst musst du es eben selber schreiben...

Delphi-Quellcode:

function floattostr(x:extended;kommastellen:integer):string;
var
  b:extended;
  i:integer;
begin
  b:=x;
  if b<0 then begin
    b:=-b;
    result:='-';
  end else
    result:='';
  result:=result+inttostr(trunc(b))+',';
  b:=b-trunc(b);
  for i:=1 to kommastellen do begin
    b:=b*10;
    result:=result+inttostr(trunc(b)); 
    b:=b-trunc(b);
  end;
end;

(getestet+funktioniert)

für große Zahlen natürlich unbrauchbar, da die Funktion keine Schreibweise "17,793479823789e18" hinkriegt.

[blackfoxx]

Laut Delphi Hilfe ist der maximale Wert von Extended 1.1*10^4932 bei 8 Byte Größe und 1920 signifikanten Stellen.
Es sind also weitaus mehr als 18 Stellen oder? :gruebel:
Nur wie bekomme ich die in meinen String?

[ichbins]

ich hab dir gerade oben eine Funktion hingeschrieben. Die geht auch. Aber ein Extended-Wert hat 10 Byte, da passen niemals 1920 Signifikante Stellen rein.

Delphi-Quellcode:

function floattostr(x:extended;kommastellen:integer):string;
var
  b:extended;
  i:integer;
begin
  b:=x;
  if b<0 then begin
    b:=-b;
    result:='-';
  end else
    result:='';
  result:=result+inttostr(trunc(b))+',';
  b:=b-trunc(b);
  for i:=1 to kommastellen do begin
    b:=b*10;
    result:=result+inttostr(trunc(b));
    b:=b-trunc(b);
  end;
end;

wenn du z.B. Pi auf 10^20 Stellen genau berechnen willst, kommst du eben nicht drumrum einen neuen Typ zu schreiben oder so.

[blackfoxx]

naja..
Stand eben in der Hilfe. Ich werd mal den Code testen. Danke.

Greetz BF

[ripper8472]

das heisst nicht "1920" sondern "19-20"...

[ichbins]

ja, so klingt es auch sinnvoller... :mrgreen:

[Khabarakh]

Zitat:

Zitat von blackfoxx

Laut Delphi Hilfe ist der maximale Wert von Extended 1.1*10^4932 bei 8 Byte Größe und 1920 signifikanten Stellen.
Es sind also weitaus mehr als 18 Stellen oder? :gruebel:
Nur wie bekomme ich die in meinen String?

Das ist ein Schreibfehler in der D2005-OH. Es sollte "19 - 20" heißen :wink: .

Für (theoretisch) unbegrenzt viele Nachkommastellen gibt's den genialen IInteger von Hagen: http://www.delphipraxis.net/internal...=106306#106306

[edit]Zu langsam :stupid: ... [/edit]

[3_of_8]

Kurze Zwischenfrage eines Dummen: Wie schreibt man einen neuen Typ? Also wie man Typen deklariert ist mir klar, aber wie kann ich einen neuen Zahlentyp deklarieren? Muss ich da mit Assembler arbeiten?