[Tonyy]

из файла мне надо считать число. оно занимает 5 байт. формат - двоичный без знака, но дробный, но не IEEE. одно то что число занимает 5 байт - уже ставит меня в тупик. подскажите как такое число считать?

[angvelem]

Чтобы понять о каком формате идёт речь, приведи HEX-формат того что нужно считать и DEC-соответствие.

[Tonyy]

00 03 4E 80 00 = 846.5

первые три байта отвечают за целую часть

00 03 4E = 846

а последние два видимо за дробную

80 00 = 0.5

вопрос - как прочитать такое число и правильно его распознать.

[Pyro]

если в число в самом начале файла, то:

PHP код:

type myfloat = array[0..4] of byte;
var a: myfloat; f: file of myfloat; 


и как типизированный прочитать

так распознать

PHP код:

flo := a[0]*256*256 + a[1]*256 + a[2];
flo := flo + a[3]/256 + a[4]/256/256; 


[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

program Project1;   {$APPTYPE CONSOLE}   uses   Windows, SysUtils;   var   hFile: THandle;   Buffer: array [0..4] of Byte;   Dummy: Cardinal;   i, f: Integer;   begin   hFile:=CreateFile('Project1.txt', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);   ReadFile(hFile, Buffer, 5, Dummy, nil);   CloseHandle(hFile);   i:=(Buffer[0] shl 16)+(Buffer[1] shl 8)+Buffer[2];   f:=(Buffer[3] shl 8)+Buffer[4];   Writeln(Format('%.2f', [i+f/$10000]));   Readln; end.

[Tonyy]

большое спасибо!