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

时间:2022-10-26 01:01:00
//计算 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;