[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]

Код:

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]

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