初学 Delphi 嵌入汇编[23] - LOOP 循环

最新推荐文章于 2021-10-12 11:31:38 发布

weixin_34342207

最新推荐文章于 2021-10-12 11:31:38 发布

阅读量139

点赞数

原文链接：https://my.oschina.net/hermer/blog/319061

版权

为什么80%的码农都做不了架构师？>>>

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


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

转载于:https://my.oschina.net/hermer/blog/319061