Конверт Real числа в 6 байт

[bizkitlimp]

Здрасьте всем. Не баньте)
Интересует как конвертировать real число в 6 байт. Ну, типа как в WinHEX-е есть data interpreter. Вот хочу такой же своими руками, заминка случилась при конверте.

Вроде бы правильно конвертирует огромные числа(задом наперед правда байты получаются), а с малыми пропускает нули

345 должно быть 89 00 00 00 80 2C, моя функция пишет: 89 2C80 00 89
(если реверсировать то 89 00 802C, остальные нули где?)
Вообщем, может есть какая нибудь функция по конверту real? Только чтоб 6 байт, типа старый real. Заранее благодарю.

зы
И как сделать, чтобы байты НЕ задом наперед были?
зы
И тут один байт (первый) лишний всегда. Он повторяет последний при сообщении, это да, фигня))

procedure TFL_Form.Menu_OpenButtonClick(Sender: TObject);
var
f: file of byte;
a: array [0..5] of byte;
X: real48;
p : pChar;
begin
 AssignFile(F, ('123.exe'));
 Reset(f);
 Seek(F,$00);
 BlockRead(f,a,6);
 X:=Real48 (a);
 Edit1.Text:=FloattoStr(X);

 //Old real to 6 bytes (reversed)
 X:=strtofloat(Edit1.Text);
 p:=@X;
 ShowMessage(IntToHex(ord(p[3]),2)+' '+IntToHex(ord(p[2]),2)+' '+IntToHex(ord(p[1]),2)+' '+IntToHex(ord(p[0]),2)+' ');

[phomm]

Читайте побайтно в массив в цикле с обратным отсчётом. Потом и преобразуйте в Real48. Куда пропадают нули не могу сказать... у меня, думаю, не пропали бы (особенно если отладкой пройтись)... надо смотреть по месту, так сказать

[chertovich]

const
  Size = SizeOf(Real);
var
  Value: Real;
  Bytes: array [0..Size - 1] of Byte;
  I: Integer;
begin
  Move(Value, Bytes[0], Size);

  for I := 0 to Size - 1 do
    ShowMessage(IntToStr(Bytes[I]));
end;

[bizkitlimp]

chertovich,
так это double получается)

const
  Size = SizeOf(Real);
var
  Value: Real48;
  Bytes: array [0..5] of Byte;
  I: Integer;
  s:string;
begin
  Move(Value, Bytes[0], Size);

  for I := 0 to 5 do
    s:=s+(IntToStr(Bytes[I]));
    showmessage(s);
end;

Вот так поправил, вроде то что нужно. Опять же почти, но там коверкать не слишком сложно.

phomm, насчет нулей, при конверте числа в string, он не учитывает того, что мне хочется чтоб вместо одного нуля было два, как в winhex-e. Вот и нулей ровно в два раза меньше.

Спасибо короче всем)

Во! Идеальный вариант:

const
  Size = SizeOf(Real);
var
  Value: Real48;
  Bytes: array [0..5] of Byte;
  I: Integer;
  s:string;
begin
Value:=1234567;
Move(Value, Bytes[0], Size);
 
for I := 0 to 5 do
s1:=s1+(IntToHex(Bytes[I],2));
 showmessage(s1);

[Александр0999]

(если реверсировать то 89 00 802C, остальные нули где?)

Нули пропадают потому что ты ограничил их сам
вместо

IntToHex(ord(p[3]),2)

надо просто написать

IntToHex(ord(p[3]),4)