将字节转换为基数的最佳方法是什么，反之亦然

Question

我现在有以下代码。

type
  TByte4 = array[0..3] of Byte; // 32-bit

function CardinalToBytes(const Data: Cardinal): TByte4;
begin
  Result[0] := (Data shr 24) and 255;
  Result[1] := (Data shr 16) and 255;
  Result[2] := (Data shr 8) and 255;
  Result[3] := Data and 255;
end;

function BytesToCardinal(const Data: TByte4): Cardinal;
begin
  Result := (Data[0] * 16777216) +
            (Data[1] * 65536) +
            (Data[2] * 256) +
             Data[3];
end;

我想知道这是否是最快和最有效的方法（我确定不是:)）。问题是这必须在 Delphi 2006 下的紧凑框架中工作（甚至不要问）。 我在一个 TEA 加密算法中使用它，该算法与 Delphi 的 Ansi 和 Unicode 版本以及 Delphi 2006 中的 .NET 和 .NET 紧凑框架一起使用。

因此，不允许使用“移动”和使用指针的类似功能（不，我不想要不安全的代码）。

编辑：

我还没有找到更好的方法来做到这一点。给出了一些很好的建议，但它们在 .NET 中都失败了。恐怕我不会再花时间在死路上了。 VCL .NET 已死，恐怕德尔福中的 CF 也已死。所以这对于维护这个项目是必须的。如果有人证明我错了并让代码在 .NET 中编译，我会等待一段时间

编辑2：

解决方案很简单，因为它在大多数情况下都是如此。有人只需要寻找明显的解决方案。我只是不再知道 .NET 中有一个 BitConverter 类

Answer 1

在 Delphi.NET 中，使用 .NET 框架中的 BitConverter 类进行转换。见BitConverter Class (System)。

举个例子：

function CardinalToBytes(const Data: Cardinal): TBytes;
begin
  Result := BitConverter.ToBytes(Data);
end;

function BytesToCardinal(const Data: TBytes): Cardinal;
begin
  Result := BitConverter.ToUInt32(Data, 0);
end;

Answer 2

好的，这有点快...

别忘了关闭范围检查！

function CardinalToBytes(const Data: Cardinal): TByte4;
begin
  Result[0] := Data shr 24;
  Result[1] := Data shr 16;
  Result[2] := Data shr 8;
  Result[3] := Data;
end;

Answer 3

一种方法是使用案例记录：

type
  TTestRecord = record
    case Cardinal of
      0: (Card: Cardinal);
      1: (Arr: array[0..3] of Byte);
  end;

var
  TR: TTestRecord;
begin

  TR.Arr[0] := 0;
  TR.Arr[1] := 1;
  TR.Arr[2] := 2;
  TR.Arr[3] := 3;
  TR.Card := 0;

Answer 4

分别

结果:=TByte4(Data);

和 结果：=基数（数据）

不过，这与 endianwise 不同（您或多或少地实现了一个 host to little endian 函数并返回到上面）。

另外，还有联合技巧：

  type 
   TSomeRecord = packed record
                case boolean of 
                    true : (data4:TByte4);
                    false :(dateabyte:cardinal);
                 end;

但我认为 .NET 也会对此感到厌烦。

Answer 5

你没有说没有助记词，所以……

type
  TByte4 = packed array[0..3] of Byte; // 32-bit

function CardinalToBytes(const Data: Cardinal): TByte4;
asm
  bswap  eax
end;

function BytesToCardinal(const Data: TByte4): Cardinal;
asm
  bswap  eax
end;