妖哥

//计算 x 的 n 次方的函数
function Fun(x,n: Integer): Integer;
asm
//mov eax, x           {因为 eax 会先获取第一个参数, 这句可以省略}
  mov ecx, n             {ecx 是个计数寄存器, 会记录循环的次数, 没循环一次 ecx 的值就会减1}
  @Lable1: add eax, eax  {内部标签必须使用 @ 前缀; 也可以使用 Delphi 的标签}
  loop @Lable1           {循环到标签执行}
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Fun(2,10))); {2048}
end;