DELPHI 的第一个内嵌汇编程序

程序的功能是做次方运算

 

procedure TForm1.Button1Click(Sender: TObject); begin //proc(1,2,3); ShowMessage(IntToStr(cf(2,0))); {1024} end; function TForm1.cf(x, n: integer):integer; asm MOV ecx,n Sub ecx,1 Mov eax , x JECXZ @Lable2 @Lable1:ADD eax,eax LOOP @Lable1 end;

没有注释。没有有效率测试。