//可以用 asm 代替 begin
function Fun(x: Integer): Integer;
asm
mov eax, x
inc eax
end;
{
汇编中的 inc 指令和 Delphi 中的 inc 是一样的;
本例也同时证明 eax 寄存器确实保存着函数的返回值.
}
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := 8;
i := Fun(i);
ShowMessage(IntToStr(i)); {9}
end;
初学 Delphi 嵌入汇编[9] - asm 可以代替 begin
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
posted on 2008-01-24 20:04 万一 阅读(5777) 评论(5) 编辑 收藏
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
11g asm pfile & spfile
asm 创建spfile
asm pfile spfile -
DELPHI 11 Android 通知 delphi安卓
Delphi10.4.2关于Android设备调试1、弄清楚自己的设备CPU架构(与指令集有关)及其出厂的Android版本 2、Delphi10.4.2对Android版本的支持2.1、支持的平台及其操作系统版本 详见本博客博文:
Delphi10.4.2 Delphi安卓设备调试 Android设备调试 Android软件调试 Delphi调试安卓软件