Gibt es in Delphi den Datentyp decimal, wie bei c# ?

[kwhk]

In C# gibt es den Typ decimal, damit kann man eine Zahl in einer 16-Bytes-Variablen darstellen. Dabei sind die ersten 14 Byte die Mantisse als Integer-Zahl und die höchsten 2 Byte geben die Anzahl Kommastellen an, wobei das höchste Bit das Vorzeichen der decimal-Zahl darstellt.
Man kann also ziemlich große Zahlen darstellen, damit rechnen, in Strings wandeln u.a.m.
Bei Delphi habe ich nur int64 (8 Bytes) als grösste mögliche int-Zahl gefunden.

Delphi max-hex = 7F FF FF FF FF FF FF FF ( int 64 Bits)
C# max-hex = 7F FF FF FF FF FF FF FF FF FF FF FF FF FF ( int 112 bits )

Gibt es inzwischen auch die Möglichkeit einer int-Zahl mit 112 Bits ?

https://docs.microsoft.com/de-de/dot...ywords/decimal

[Andreas13]

Hallo Hartmut,

versuch es mal mit der Multipräzisions-Arithmetik-Bibliothek MPArith 1.39.12 von Wolfgang Ehrhardt:

https://sslsites.de/wolfgang-ehrhardt.de/index_de.html

Es ist allerdings die allerletzte Version von ihm (= Gammatester in unserem Forum), da er Anfang des Jahres leider verstorben ist.

Ich benutze seine Routinen seit langem mit großem Erfolg, die eine nahezu beliebige Anzahl an Nachkommastellen (bis in die Millionen) ermöglichen.

Gruß

Andreas

[Rudy Velthuis]

Zitat von Andreas13:

Hallo Hartmut,

versuch es mal mit der Multipräzisions-Arithmetik-Bibliothek MPArith 1.39.12 von Wolfgang Ehrhardt:

https://sslsites.de/wolfgang-ehrhardt.de/index_de.html

MPArith war einer der Gründe, dass ich meine eigene BigInteger und BigDecimal geschrieben habe.

Zitat:

Es ist allerdings die allerletzte Version von ihm (= Gammatester in unserem Forum), da er Anfang des Jahres leider verstorben ist.

Probiere doch mal meine Implementationen. Können wie einfache Integer benutzt werden (Operator overloading), es gibt allerdings auch viele Methoden. Ist hochoptimiert.

[kwhk]

Danke für die vielen Antworten. Ich habe mit einem kleinen C#-Testprogramm versucht festzustellen, wie die Struktur der decimal-Variablen ist.
Hier der Code und das Ergebnis in einer Testdatei

Code:

  FileStream fileStr = new FileStream(@"Y:\HkTestDECIMAL.xyz",FileMode.Create);
  BinaryWriter binWriter = new BinaryWriter(fileStr);

  decimal d1 = 123.4567890123m;
  decimal d2 = -1000000000.00m;
  decimal d3 = 1m / 3m;
  double  r3 = 123.4567890123;

  binWriter.Write(d1);
  binWriter.Write(d2);
  binWriter.Write(d3);
  binWriter.Write(r3);

  binWriter.Close();



0000: CB 04 FB 71  1F 01 00 00  00 00 00 00  00 00 0A 00  decimal d1 = 123.4567890123m;
      -------------------------------------  ===== ~~~~~
      |                                            | 
      |                                            +-------- 10 Kommastellen / Vorzeichen + ( 0 000A )
      +----------------------------------------------------- Hex 011F71FB04CB = Dez 1234567890123

0010: 00 E8 76 48  17 00 00 00  00 00 00 00  00 00 02 80  decimal d2 = -1000000000.00m;
      -------------------------------------  ===== ~~~~~
      |                                            | 
      |                                            +-------- 2 Kommastellen / Vorzeichen - ( 1 0002)
      +----------------------------------------------------- Hex 174876E800 = Dez 100000000000

0020: 55 55 55 05  CB 00 B7 14  CA 44 C5 0A   00 00 1C 00  decimal d3 = 1m / 3m;
      -------------------------------------  ===== ~~~~~
      |                                            | 
      |                                            +-------- 28 Kommastellen / Vorzeichen + ( 0 001C)
      +----------------------------------------------------- Hex 0AC544CA14B700CB05555555 = Dez 33333...(28 x 3)

0030: 0B 40 FB 07  3C DD 5E 40                            double r3 = 123.4567890123;

Bei der Variablen d3 = 1/3, also ein Endlosbruch 0,333..., wird in den ersten 12 Bytes die Mantisse und in den letzten 2 Byte werden Anzahl Kommastellen und Vorzeichen gespeichert. Die Bytes 13 und 14 sind immer 00 00. Deren Bedeutung hab ich nicht nicht erkannt, evtl. nur Füllbytes, damit die decimal-Variable insgesamt 16 Bytes groß ist.

Rudy, Deine Version habe ich mir heruntergeladen und werde sie mal probieren. Danke für den Link.

[Andreas13]

@Rudy Velthuis

Hallo Rudy,

Deine Routinen in DecimalsDevelop.dpr (Stand: 16.06.2010), enthalten im aktuellen decimals.zip lassen sich mit meinem Delphi XE5 Professional NICHT (mehr) kompilieren... Hast Du evt. eine aktualisierte Version?

Danke + Gruß

Andreas

[Rudy Velthuis]

Zitat von Andreas13:

@Rudy Velthuis

Hallo Rudy,

Deine Routinen in DecimalsDevelop.dpr (Stand: 16.06.2010), enthalten im aktuellen decimals.zip lassen sich mit meinem Delphi XE5 Professional NICHT (mehr) kompilieren... Hast Du evt. eine aktualisierte Version?

Danke + Gruß

Andreas

Habe ich gleich ausprobiert. Die unit Console ist nicht notwendig (nur für farbige Ausgabe) und das Problem mit TFormatSettings.

Werde heute Abend noch eine verbesserte Version hochladen.

[TurboMagic]

Zitat von Andreas13:

Hallo Hartmut,

versuch es mal mit der Multipräzisions-Arithmetik-Bibliothek MPArith 1.39.12 von Wolfgang Ehrhardt:

https://sslsites.de/wolfgang-ehrhardt.de/index_de.html

Es ist allerdings die allerletzte Version von ihm (= Gammatester in unserem Forum), da er Anfang des Jahres leider verstorben ist.

Ich benutze seine Routinen seit langem mit großem Erfolg, die eine nahezu beliebige Anzahl an Nachkommastellen (bis in die Millionen) ermöglichen.

Gruß

Andreas

Muss man das dann evtl. irgendwo hin retten (Torry, Jedi...), oder wer finanziert den über den Link angegebenen Webspace?

[jeroenp]

Zitat von TurboMagic:

Zitat von Andreas13:

Hallo Hartmut,

versuch es mal mit der Multipräzisions-Arithmetik-Bibliothek MPArith 1.39.12 von Wolfgang Ehrhardt:

https://sslsites.de/wolfgang-ehrhardt.de/index_de.html

Es ist allerdings die allerletzte Version von ihm (= Gammatester in unserem Forum), da er Anfang des Jahres leider verstorben ist.

Muss man das dann evtl. irgendwo hin retten (Torry, Jedi...), oder wer finanziert den über den Link angegebenen Webspace?

Hoffentlich ist in https://web.archive.org/web/20190328.../index_de.html alles enthalten.

--jeroen

[himitsu]

Zitat von jeroenp:

Hoffentlich ist in https://web.archive.org/web/20190328.../index_de.html alles enthalten.

Früher nicht, da nur die Webseite kopiert wurde, aber seit einer Weile werden auch Dateien (ZIPs und Dergleichen) ebenfalls gesichert ... allerdings weiß ich nicht in welchen Umfang die Downloads derzeit gespeichert werden.
(nicht wundern ... auch die robots.txt wird absichtlich von denen ignoriert)

Besser jemand übernimmt das Projekt auf die eigene Webseite, bzw. erstellt für Quellcodes ein Projekt auf github/sourceforge/...

[Redeemer]

archive.org beachtet robots.txt.
Was du meinst, ist archive.is (aka archive.today), das schert sich nicht um Urheberrecht, muss aber manuell angestoßen werden.