[SCrat.ORS]

Вот такая задача:
Имеем MemoryStream, в котором записано

Код:

00 00 00 0A

Это число 10 как можно понять. Пытаюсь это число прочитать:

Код:

var
A:TMemoryStream;
C:Integer;
Begin
// ... загружаем эти байты из файла не суть
A.Seek(0, soFromBeginning);
A.Read(C,4);
A.Free;
end;

И после чтения я получаю результат 167772160, т.е. 0A 00 00 00... все логично прочитало как число в обратном порядке. Но как его прочитать в прямом порядке? Предполагаю что ничего сложного, но использовать циклы и читать по 1 байту как-то не комильфо.
Подскажите кто знает.

[Alegun]

Данные так перевёрнутыми и хранятся везде - вроде в проц так их вгонять проще

Можно сделать так:

Код:

...

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, но вроде должно и с потоком прокатить, к сожалению, такое не проверял

[SCrat.ORS]

Ох как же мог забыть про это:

Код:

C:= StrToInt('$' + bth(b4) + bth(b3) + bth(b2) + bth(b1));

[M.A.D.M.A.N.]

Big Endian, Little Endian.

[Alegun]

Сообщение от M.A.D.M.A.N.

Big Endian, Little Endian.

Только сейчас дошло

Код:

c:= swap(c shr 16) or (swap(c) shl 16);

[Bargest]

А еще есть

Код:

asm
   bswap eax
end;