[ArtIntellAnd]

Привет Всем! Подскажите, перевожу дробное число из 16-ричной системы в 10-тичное так:

Код:

var
d8: array [0..7] of Byte;
D:double;
begin
 D:=Double(d8);
end;

а как обратно преобразовать из дробного десятичное в 16-ричное число. Есть ли аналогичная функция?

[ArtIntellAnd]

Решено, кому нужно вот решение:
var
d8: array [0..7] of Byte;
D:double absolute d8;

[M.A.D.M.A.N.]

Int64((@double)^)