double to hex

[mirvsem]

157,453796 = hex 18068A
157,455093 = hex 180697
71,5037 = hex E91D00
71,506104 = hex E93500
71,507103 = hex E93F00
0 = hex 000000
подскажите по какому алгоритму происходит преобразование?
я смотрел здесь на форуме тему про IEEE-754, но это не то.
Прошу кто грамотный в этом деле, помогите разобраться.

[mutabor]

Это неправда, эти числа не равны, кроме последнего.
Например $18068A = 1574538, а не 157,453796

Походу, здесь число умножается на 10000, округляется и потом переводиться в Hex.

[alexBlack]

Похоже это currency
(Currency values are automatically divided or multiplied by 10000).

var a:currency;
    b:int64;
begin
   b := $18068A;
   a := PCurrency(PInt64(@b))^;
   writeln(a);     // 157,4538
   readln;

[mirvsem]

Сообщение от alexBlack

Похоже это currency
(Currency values are automatically divided or multiplied by 10000).

var a:currency;
    b:int64;
begin
   b := $18068A;
   a := PCurrency(PInt64(@b))^;
   writeln(a);     // 157,4538
   readln;

Приогромнешнее спасибо, а то думал что девайс китайский без дров не присоеденить к компьютеру. Еще раз огромное вам спасибо.

Если не трудно как решить обратную задачу зная double получить HEX?

[alexBlack]

Да также. Могли бы и сами догадаться:

var a:currency;
    b:int64;
begin
   a := 157.4538;
   b := PInt64(PCurrency(@a))^;
   writeln(IntToHex(b, 4));     // $18068A;
   readln;