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

初学Delphi嵌入汇编[23] - LOOP 循环2012-04-15 博客园万一//计算 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;