//按单字节反转内存的函数
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;
关键字词:
