反转内存的函数

//按单字节反转内存的函数procedure ReverseMemory(P: PByte; Len: Integer); overload;var  B: Byte;  P2: PByte;begin  P2 := P;  Inc(P2, Len - 1);  while Integer(P) < Integer(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;