//计算 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;
相关文章
- 初学 Delphi 嵌入汇编[23] - LOOP 循环
- 初学 Delphi 嵌入汇编[1] - 汇编语言与机器语言
- 初学 Delphi 嵌入汇编[3] - 第一个 Delphi 与汇编的例子
- 初学 Delphi 嵌入汇编[25] - 在汇编中调用函数
- 初学 Delphi 嵌入汇编[2] - 汇编语言关键字
- 初学 Delphi 嵌入汇编[18] - SHL 与 SHR
- 初学 Delphi 嵌入汇编[7] - 使用常量
- 初学 Delphi 嵌入汇编[9] - asm 可以代替 begin
- 初学 Delphi 嵌入汇编[16] - 进制的表示方法
- 初学 Delphi 嵌入汇编[8] - 8 位寄存器、16 位寄存器与 32 位寄存器