Python 代码到 Delphi 7 转换：字节顺序

Question

我正在尝试将此代码转换为 Delphi 7。在 Python 中，它将十六进制字节转换为大端：

keydata=[0,0,0,0,0,0,0,0]
for i in range(0,len(data),4):
 Keydata[i//4]=unpack(">I",data[i:i+4])[0]

到目前为止我的 Delphi 代码：

Var
Keydata:array of integer;

Setlength(keydata,8);
While i <= Length(data)-1 do begin
Move(data[i], keydata[i div 4], 4);
Inc(i,4);
End;

在 Delphi 中转换为大端的正确方法是什么？

Answer 1

你几乎完成了，除了实际的字节序反转。考虑通过“手动”交换每个字节来自己完成该部分：

var
  keydata: Array of Byte;  // Octets = 8bit per value; Integer would be 32bit
  i: Integer;  // Going through all bytes of the array, 4 at once
  first, second: Byte;  // Temporary storage
begin
  SetLength( keydata, 8 );
  for i:= 0 to 7 do keydata[i]:= i;  // Example: the array is now [0, 1, 2, 3, 4, 5, 6, 7]

  i:= 0;  // Arrays start with index [0]
  while i< Length( keydata ) do begin
    first:= keydata[i];
    second:= keydata[i+ 1];
    keydata[i]:= keydata[i+ 3];  // 1st byte gets overwritten
    keydata[i+ 1]:= keydata[i+ 2];
    keydata[i+ 2]:= second;
    keydata[i+ 3]:= first;  // Remembering the 1st byte

    Inc( i, 4 );  // Next 4 bytes
  end;

  // keydata should now be [3, 2, 1, 0, 7, 6, 5, 4]
end;

这是一个很有教育意义的例子。另见 how to convert big-endian numbers to native numbers delphi。缩进 Pascal 代码不是强制性的，但它可以提高阅读能力。

Python 代码到 Delphi 7 转换：字节顺序

Python code to Delphi 7 conversion: endianess

python

delphi

delphi-7

endianness