初學Delphi嵌入匯編[25] - 在匯編中調用函數

//准備一個在匯編中要調用的函數

function DelphiFun(x,y: Integer): Integer;
begin
　Result := x + y;
end;

//匯編函數

function AsmFun: Integer;
asm
　mov eax, 1　　　{eax 對應函數的第一個參數, 這裡給第一個參數賦值為 1}
　mov edx, 2　　　{edx 對應函數的第二個參數, 這裡給第二個參數賦值為 2}
　call DelphiFun　{call 是調用命令; 返回值在 eax}
end;

//測試

procedure TForm1.Button1Click(Sender: TObject);
var
　num: Integer;
begin
　num := AsmFun;
　ShowMessage(IntToStr(num)); {3}
end;