技术求助：解析Delphi内嵌汇编函数并转换为Delphi Pascal实现

开发者阿泽

2026-4-30

拆解并转换Delphi内嵌汇编的lswap函数

嘿，我来帮你把这个内嵌汇编函数彻底搞明白，再转换成纯Delphi Pascal代码！

首先明确核心功能：这个lswap函数就是翻转32位整数的字节顺序（也就是常说的大小端字节序互转），比如把小端存储的0x12345678转成大端的0x78563412，反过来也适用。

汇编代码逐行解析

咱们拆解下这段汇编的逻辑：

{$IFDEF CPU64} mov eax,ecx {$ENDIF CPU64}：在64位Delphi环境中，函数的第一个参数（这里是i: longint）默认存在RCX寄存器里，这条指令把参数值转移到EAX寄存器——因为我们处理的是32位整数，用32位寄存器就足够了。
db $0f,$c8：这是bswap eax指令的机器码，bswap是x86架构的专用指令，作用就是把32位寄存器里的4个字节完全逆序排列。注释里提到需要至少486级CPU，现在的机器肯定都满足这个要求啦。

转换成纯Delphi Pascal代码

完全没必要依赖内嵌汇编，我们有两种简洁可靠的实现方式：

方法1：用Delphi内置函数（推荐，高效简洁）

从Delphi 2009开始，System单元就提供了ByteSwap函数，专门处理32位整数的字节翻转，直接用它就行：

function lswap(i: LongInt): LongInt;
begin
  Result := System.ByteSwap(i);
end;

方法2：手动位运算实现（兼容所有Delphi版本）

如果你的项目要兼容非常老的Delphi版本（比如Delphi 7及更早），可以自己用位运算手动实现字节翻转：

function lswap(i: LongInt): LongInt;
begin
  // 提取每个字节，重新排列后合并
  Result := ((i and $FF) shl 24) or
            (((i shr 8) and $FF) shl 16) or
            (((i shr 16) and $FF) shl 8) or
            ((i shr 24) and $FF);
end;

这段代码的逻辑是：把原整数的每个字节单独提取出来，将最低位字节移到最高位，次低位移到次高位，以此类推，最终合并成新的整数，效果和汇编里的bswap完全一致。