Question

请高手转换C代码到delphi. void reverseBytes(char *bytes, long length) { long halfLen = (length>>1);

void reverseBytes(char *bytes, long length)
{
long halfLen = (length>>1);
char *end = bytes+length;
char c;
while (--halfLen >= 0)
{
c = *bytes;
*bytes++ = *--end;
*end = c;
}
}

这个函数的用处就是把一个char数组元素反转。希望高手帮助转为delphi。

Answer 1

procedure reverseBytes( pbSource : PByte; nByteCount : Integer );
var
i : Integer;
Q : PByte;
B : Byte;
begin
Q := pbSource;
Inc( Q, nByteCount - 1 );
for i := 1 to nByteCount div 2 do
begin
B := pbSource^;
pbSource^ := Q^;
Q^ := B;
Inc( pbSource );
Dec( Q );
end;
end;