本文整理自网络，侵删。
//按单字节反转内存的函数
procedure ReverseMemory(P: PByte; Len: Integer); overload;
var
B: Byte;
P2: PByte;
begin
P2 := P;
Inc(P2, Len - 1);
while P < P2 do
begin
B := P^;
P^ := P2^;
P2^ := B;
Inc(P);
Dec(P2);
end;
end;
//按双字节反转内存的函数
procedure ReverseMemory(P: PWord; Len: Integer); overload;
var
W: Word;
P2: PWord;
begin
P2 := P;
Inc(P2, Len div 2 - 1);
while Integer(P) < Integer(P2) do
begin
W := P^;
P^ := P2^;
P2^ := W;
Inc(P);
Dec(P2);
end;
end;
//按四字节反转内存的函数
procedure ReverseMemory(P: PInteger; Len: Integer); overload;
var
I: Integer;
P2: PInteger;
begin
P2 := P;
Inc(P2, Len div 4 - 1);
while Integer(P) < Integer(P2) do
begin
I := P^;
P^ := P2^;
P2^ := I;
Inc(P);
Dec(P2);
end;
end;
//调用测试
procedure TForm1.Button1Click(Sender: TObject);
var
bs: TBytes;
i: Integer;
begin
SetLength(bs, 8);
for i := 0 to Length(bs) - 1 do bs[i] := i + 49;
ShowMessage(StringOf(bs)); {12345678}
for i := 0 to Length(bs) - 1 do bs[i] := i + 49;
ReverseMemory(PByte(bs), Length(bs));
ShowMessage(StringOf(bs)); {87654321}
for i := 0 to Length(bs) - 1 do bs[i] := i + 49;
ReverseMemory(PWord(bs), Length(bs));
ShowMessage(StringOf(bs)); {78563412}
for i := 0 to Length(bs) - 1 do bs[i] := i + 49;
ReverseMemory(PInteger(bs), Length(bs));
ShowMessage(StringOf(bs)); {56781234}
end; 相关阅读 >>
Delphi xe 无法编译apk提示sdk路径问题时？sdk路径配置方法
Delphi stringtowidestring widestringtostring
Delphi 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站
更多相关阅读请进入《Delphi》频道 >>
