浮点数转成16进制ASCII码(50分)

各位老大，跪求各位了，在下有一个浮点数（45.23）
想将其转化成一个16进制的ascii码字符串。
怎么弄啊？？(结果类似：00003042)

在线等。。。。。。。

1. 你的问题问得不是很明白;
2. 如果是将一个real(8bytes)的数据转换成ascii码, 则很简单的;
var x : real;
st : string;
ix : int64 absolute x;
.....
st := format('%x', [ix]);
或者:
var x : real;
ix : int64;
st : string;
....
move(x, ix, 8);
st := format('%x', [ix]);