查看完整版本: 初学 Delphi 嵌入汇编[25] - 在汇编中调用函数

初学 Delphi 嵌入汇编[25] - 在汇编中调用函数

[color=#008000]//准备一个在汇编中要调用的函数
[/color][b][color=#000080]function[/color][/b] DelphiFun(x,y: Integer): Integer;
[b][color=#000080]begin[/color][/b]
  Result := x + y;
[b][color=#000080]end[/color][/b];


[color=#008000]//汇编函数
[/color][b][color=#000080]function[/color][/b] AsmFun: Integer;
[b][color=#000080]asm[/color][/b]
  mov eax, [color=#0000ff]1[/color]      [color=#008000]{eax 对应函数的第一个参数, 这里给第一个参数赋值为 1}[/color]
  mov edx, [color=#0000ff]2[/color]      [color=#008000]{edx 对应函数的第二个参数, 这里给第二个参数赋值为 2}[/color]
  call DelphiFun  [color=#008000]{call 是调用命令; 返回值在 eax}[/color]
[b][color=#000080]end[/color][/b];


[color=#008000]//测试
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button1Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  num: Integer;
[b][color=#000080]begin[/color][/b]
  num := AsmFun;
  ShowMessage(IntToStr(num)); [color=#008000]{3}[/color]
[b][color=#000080]end[/color][/b];