Delphi 內嵌組合語言：用組合語言重寫 Delphi 函數

從 Pascal 到組合語言的函數重寫實戰

通過一個簡單的乘 2 函數，展示 Delphi 高級語言與內嵌組合語言的等價實現，並對比執行效率。

Delphi 版本

function DelphiFun(x: Integer): Integer;
begin
  Result := x * 2;
end;

組合語言版本

function AsmFun(x: Integer): Integer;
asm
  add eax, eax  {EAX 保存第一個參數，亦為返回值，ADD EAX,EAX 相當於乘 2}
end;

性能測試結果

• 1,000,000 次循環：兩者基本無差異
• 10,000,000 次循環：僅有 10 毫秒左右差距

結論： 現代 Delphi 編譯器優化極佳，簡單運算無需手寫組合語言優化。組合語言優勢在於複雜位運算、SIMD 指令集或特定算法優化場景。