Данные так перевёрнутыми и хранятся везде - вроде в проц так их вгонять проще
Можно сделать так:
Код:
...
function bth(ds: byte): string;
const
b: string = '0123456789ABCDEF';
begin
Result:= b[(ds shr 4) + 1] + b[(ds and $F) + 1];
end;
...
var
b1, b2, b3, b4: byte;
...
AssignFile(
Reset(
Read(SomeFile, b1, b2, b3, b4);
C:= StrToInt('$' + bth(b4) + bth(b3) + bth(b2) + bth(b1)); Правда это работает с типизированным байтовым файлом, в смысле с
file of byte, но вроде должно и с потоком прокатить, к сожалению, такое не проверял