本文整理自网络,侵删。
Delphi嵌入循环汇编
var
Int:Integer;
begin
asm
xor ebx,ebx //ebx
xor eax,eax //eax
@for: add ebx,eax //设置循环点 ebx+eax
inc eax //eax+1
cmp eax,$0b //if eax <> 11
jnz @for //跳回add
mov Int,ebx;
end;
//这个时候Int 的值是55
end;
相关阅读 >>
Delphi 遍历所有目录和子目录下的文件名(可按后缀名遍历)
Delphi tcolortohex 与 hextotcolor
更多相关阅读请进入《Delphi》频道 >>