И снова...и опять HEX

← →
DVM © (2008-01-06 00:30) [40]

> Вот и я об этом думаю

function ReverseBytes(const N: LongInt): LongInt; begin Result := ((N and $000000FF) shl 24) or ((N and $0000FF00) shl 8) or ((N and $00FF0000) shr 8) or ((N and $FF000000) shr 24); end;

← →
MOO (2008-01-06 00:34) [41]

Всем спасибо...DVM мне бы хотелось конечно, самому дойти до этой функции.

← →
{RASkov} © (2008-01-06 00:36) [42]

> [39] MOO (06.01.08 00:27)
> Видимо вы просто пропускали уроки Телепатии.

Видимо....
Я в начале тебя об этом предупредил :)

Ты хочешь ХексВьювер сделать?
Если да, то может все-таки лучше с байтами работать, нежели с более "тяжелыми" элементами, а потом над ними еще и колдовать....

← →
palva © (2008-01-06 00:38) [43]

Перевернуть целое можно такой функцией
function revint(n:Integer): Integer; asm BSWAP EAX end;
вот пример использования
{$APPTYPE CONSOLE} uses SysUtils; function revint(n:Integer): Integer; asm BSWAP EAX end; var d: Integer; begin d := $12345678; WriteLn(IntToHex(revint(d), 8)); // 78563412 end.

← →
{RASkov} © (2008-01-06 00:39) [44]

> [40] DVM © (06.01.08 00:30)

> [43] palva © (06.01.08 00:38)

Колдуны :)

← →
DVM © (2008-01-06 00:40) [45]

> Перевернуть целое можно такой функцией

надо же. как просто.

← →
MOO (2008-01-06 00:40) [46]

> Ты хочешь ХексВьювер сделать?

Нет, я просто разбираюсь с форматом файла одного. Поэтому ничего серьезного, просто интерес

← →
MOO (2008-01-06 00:42) [47]

> palva
> DVM

Спасибо, мда мне до этого далеко ;)

← →
palva © (2008-01-06 00:43) [48]

> Поэтому ничего серьезного, просто интерес
Молодец. А то у нас тут все то препод задал, то начальник приказал. Противно вопросы читать. Интересующихся мало.

← →
{RASkov} © (2008-01-06 00:48) [49]

> [48] palva © (06.01.08 00:43)
> Интересующихся мало.

Интерес бывает разный :(
Мало ли, что за файлик, форматом которого заинтересовался автор....
Шучу конечно, но... :)

← →
MOO (2008-01-06 00:54) [50]

> palva © (06.01.08 00:43) [48]
>

Ну не знай, если бы я учился в Высшем Учебном то может быть мой вопрос и был похожим на все эти.

> {RASkov}

Так всё таки и надо зачепить меня гг ;)

← →
{RASkov} © (2008-01-06 01:03) [51]

> [50] MOO (06.01.08 00:54)
> > {RASkov}
>
> Так всё таки и надо зачепить меня гг ;)

Да не волнуйся ты так, все будет в шоколаде. Если, что зачипим, причипим.... вообщем, как говорится - поможем чем сможем :)

← →
DVM © (2008-01-06 01:04) [52]

> MOO

кстати, вот почитай про порядок байт и тому подобное:

http://ru.wikipedia.org/wiki/%D0%9F%D0%BE%D1%80%D1%8F%D0%B4%D0%BE%D0%BA_%D0%B1%D0%B0%D0%B9%D1%82%D0%BE%D0%B2

> {RASkov} © (06.01.08 01:03) [51]

Диалог из недавно обсуждавшегося фильма:
Ипполит - Ты мне руку сломаешь.
Женя - Ничего. Сам сломаю, сам и вылечу.
:)

← →
MOO (2008-01-06 01:13) [55]

> [55] MOO (06.01.08 01:13)

Вот эту можно почитать до кучи
http://www.podgoretsky.com/ftp/Docs/Delphi/Podgoretsky/bits.html
.... пригодится)

И снова...и опять HEX Найти похожие ветки