//Delphi 函数
function DelphiFun(x: Integer): Integer;
begin
  Result := x * 2;
end;

//汇编函数, 和上面的函数是同样的功能
function AsmFun(x: Integer): Integer;
asm
  add eax, eax   {eax 可以获取第一个参数, 同时又是函数的返回值, 所以可以如此简洁!}
end;


//测试 DelphiFun
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 34;
  i := DelphiFun(i);
  ShowMessage(IntToStr(i)); {68}
end;

//测试 AsmFun
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  i := 34;
  i := AsmFun(i);
  ShowMessage(IntToStr(i)); {68}
end;