如何交换word型的高位字节与低位字节的值，急在线等！

[ksycsdn]

如何交换word型的高位字节与低位字节的值

[Maple119]

仅将高低八位调换？

[Maple119]

function High_Switch_Low8(Value: Word): Word;
asm
XCHG AH, AL
end;

[ksycsdn]

牛！
可，有没有不用汇编的办法？
我还想换longword的字节顺序倒过来

[ksycsdn]

这点活用C就简单了，用DELPHI 真苦

[Maple119]

我晕哟。如此精解的代码都嫌麻烦呀？
你是说 longword 的高低 16位对调吗？

[ksycsdn]

不是了，是把全部的longword字节倒过来：）
好久不动汇编，不知道字节顺序的原理，所以想用不用汇编的办法，呵

[Maple119]

用D也可以的。但一时忘记取值方法了。

[Maple119]

Type
TChar4 = Array[0..3] OF Char;

function mlIntToBin(IntValue: Integer; OutBin: pChar): pChar;
asm
XCHG EAX, EDX
MOV [EAX], EDX
end;

{
var
IntBin : TChar4
begin
mlIntToBin(6, IntBin)
end

}

[ksycsdn]

procedure TForm1.Button1Click(Sender: TObject);
var
i32a,i32:longword;
begin
i32:=1;

(pchar(i32a))[1]:=(pchar(i32))[4];
(pchar(i32a))[2]:=(pchar(i32))[3];
(pchar(i32a))[3]:=(pchar(i32))[2];
(pchar(i32a))[4]:=(pchar(i32))[1];

showmessage(inttostr(i32a));
end;


为什么这样不可以倒过字节？

[Maple119]

长整数由四个8个字节组成，你想如何换就如何换了。
反过来的函数
Function mlBinToInt(InBin : pChar): Integer;
asm
MOV EAX, [EAX]
end;

[Maple119]

加QQ：119559997

[ehom]

Swap

[ehom]

Longword:

function SwapLong(Value: Cardinal): Cardinal; overload;
asm
BSWAP EAX
end;

[ehom]

overload多余

[zzlingaaa]

这样行不?
function Change16Bit(Value: Word): Word;
var
Low8, High8: Word;
begin
Low8 := Value and $00FF;
High8 := Value and $FF00;
Low8 := Value shl 8;
High8 := Value shr 8;
Result := Low8 or High8;
end;