Поменять байты местами

← →
secher (2005-03-14 12:41) [0]

подскажите плиз как поменять местами байты в переменной Word
например 0100 сделать 0001

← →
begin...end © (2005-03-14 12:42) [1]

Например, с помощью функции Swap.

← →
P.N.P. © (2005-03-14 12:47) [2]

Если как в примере, то 4 shr 2,
см. хелп - Logical operators

← →
begin...end © (2005-03-14 12:57) [3]

> P.N.P. © (14.03.05 12:47) [2]

Кто ж его знает - может быть, он написал в шестнадцатеричной системе :-)

var
W: Word;
begin
W := ...;
W := ((W and $FF) shl 8) or ((W and $FF00) shr 8)
end.

← →
TUser © (2005-03-14 13:47) [4]

второй and лишний

← →
Юрий Зотов © (2005-03-14 14:07) [5]

Первый тоже...
:о)

← →
begin...end © (2005-03-14 16:29) [6]

Согласен. Приношу извинения.

← →
stakan © (2005-03-14 17:43) [7]

var L: Byte; H: Byte; R: Word; begin R := 0; L := Lo(Исходное значение); H := Hi(Исходное значение); R := L; R := R SHL 8; R := R + H; //результат
Код несколько избыточен, для наглядности

← →
Юрий К (2005-03-14 19:52) [8]

w: Word;
pch: PChar;
ch: Char;

pch: = PCHAR(@w);
ch := pch[0];
pch[0] := pch[1];
pch[1]: = ch;

Где-то на этом форуме уже видел такую функцию:
function SwapW(i: Word): Word; asm XCHG al,ah end;
Можно и в двойном слове байты в противоположном порядке разместить:
function SwapL(i: LongWord): LongWord; asm BSWAP eax end;

можно ещё через ROR[ROL], три XOR"а, но быстрей всего через XCHG

Ещё с CopyMemory можно

← →
secher (2005-03-15 04:16) [12]

Sorry.. Вношу поправку данные в шестнадцатеричном виде

Поменять байты местами Найти похожие ветки