首页 / 软件开发 / Delphi / 初学Delphi嵌入汇编[12] - 在汇编代码中可以直接使用Result

初学Delphi嵌入汇编[12] - 在汇编代码中可以直接使用Result2012-04-13 博客园 万一//在汇编代码中使用 Result

function Fun（x: Integer）: Integer;
asm
mov ecx, &x
dec ecx {汇编中的 dec 是减 1 指令, 和 Delphi 是一样的}
mov @Result, ecx {在本例中去掉 @ 也可以, 暂时不知怎么回事}
end;

//测试

procedure TForm1.Button1Click（Sender: TObject）;
var
i: Integer;
begin
i := 100;
i := Fun（i）;
ShowMessage（IntToStr（i））; {99}
end;