HexToDec optimieren

[Kostas]

Mit dem Windows eigenen Rechner funktioniert die Umrechnung auch.
Deshalb ging ich eigentlich davon aus, es gibt einen sehr einfachen Weg Byteweise zusammenzuführen.

Ich merke gerade, mein Umbau funktioniert doch nicht auf beliebig lange Zahlen.
Es geh bis hierher:

Delphi-Quellcode:

  Label2.caption := HexToDec([$FF, $FF, $FF, $FF, $FF,
                              $FF, $FF, $FF, $FF, $FF,
                              $FF, $FF, $FF, $FF, $FF,
                              $FF, $FF, $FF, $FF, $FF,
                              $FF, $FF, $FF, $FF, $FF,
                              $FF]);

Aber das ist für meinen Anwendungsfall völlig ausreichend.

@Dejan Vu
wie ist das gemeint? es reicht nicht Bytes einzeln in Dezimal umzuwandeln und als String auszugeben.
Bei den Hex-Zahlen "01 77 72 D6 29 D6 8F" soll danach 412810079753871 herauskommen.

Gruß Kostas

[himitsu]

Zitat von Kostas:

Ich merke gerade, mein Umbau funktioniert doch nicht auf beliebig lange Zahlen.
Es geh bis hierher:

Das hätte man sich auch denken können.

Delphi-Quellcode:

  MaxFMTBcdFractionSize = 64;
  { Max supported by Midas }
  MaxFMTBcdDigits =   32;
  DefaultFMTBcdScale = 6;
  MaxBcdPrecision =   18;
  MaxBcdScale     =   4;
  SizeOfFraction  = 32;
  SizeOfTBCD      = 2 + SizeOfFraction;

type
  PBcd = ^TBcd;
  TBcd  = record
    Precision: Byte;                        { 1..64 }
    SignSpecialPlaces: Byte;                { Sign:1, Special:1, Places:6 }
    Fraction: packed array [0..31] of Byte; { BCD Nibbles, 00..99 per Byte, high Nibble 1st }

Erstmal Fraction -> 32 Bytes und pro Byte 2 Dezimalstellen = maximal 10^64
und dann vorallem die Konstanten