鱼C论坛

 找回密码
 立即注册
查看: 2899|回复: 1

[学习笔记] Delphi7另类调试入门 - 零基础入门学习Delphi 014

[复制链接]
发表于 2017-8-3 22:09:59 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本课讲while、repeat until、for三种循环编译成机器码(汇编)后的差异。
先建立一个程序,设置三个button,分别为while, repeat和for,各自的程序如下:
第一段程序:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   i, result : integer;
  4. begin
  5.   i := 1;
  6.   result := 0;
  7.   while i <= 100 do
  8.     begin
  9.       result := result + i;
  10.       i := i + 1;
  11.     end;
  12.   button1.Caption := button1.Caption + '  ' + IntToStr(result);
  13. end;
复制代码

按F5在i:=1;处下一个断点(此时左边有一个红点,再按F5可消除断点),即程序运行到这里后挂起,可以查看变量的值,CPU的检寄存器等信息,之后可以单步运行,并观察变化。单步执行的快捷键是F7(Trace into)和F8(Step over)区别是当调用过程、函数时(如IntToStr)F7还进入其内部去,F8则将其作为一句语句直接走过。这两个功能还有快捷按钮与之对于。
菜单 View—Debug windows—CPU(Ctrl –Alt –C)弹出CPU窗口,可以看到源程序和与之对于的汇编代码以及CPU的
EAX、EBX等是CPU的寄存器,可以看作一个变量名;MOV相当于赋值,将值赋给寄存器;XOR是异或,对一个寄存器和其本身异或就是使其值为0;ADD是加法;CMP是比较,即前面的值减去后面,看看是大于等于小于0;JLE跳转,当小于(L)等于(E)较转相对n个地址。
  1. i := 1;
  2. 0044DF88 B801000000       mov eax,$00000001 //将寄存器eax赋值为1
  3. result := 0;
  4. 0044DF8D 33DB             xor ebx,ebx //将寄存器ebx赋值为0
  5. result := result + i;
  6. 0044DF8F 03D8             add ebx,eax //将eax加到ebx中
  7. i := i + 1;
  8. 0044DF91 40               inc eax //eax自加1
  9. while i <= 100 do
  10. 0044DF92 83F864           cmp eax,$64 //比较eax与100
  11. 0044DF95 7EF8             jle -$08 //小于等于则跳转-8,即到95-8=8D
复制代码

用XOR赋值为0而不用MOV是因为XOR仅占2字节,MOV占10字节,效率大幅提高。
第二段程序:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   i, result : integer;
  4. begin
  5.   i := 1;
  6.   result := 0;
  7.   while i <= 100 do
  8.     begin
  9.       result := result + i;
  10.       i := i + 1;
  11.     end;
  12.   button1.Caption := button1.Caption + '  ' + IntToStr(result);
  13. end;
复制代码

汇编代码与while完全相同!
第三段程序:
  1. procedure TForm1.Button3Click(Sender: TObject);
  2. var
  3.   i, result : integer;
  4. begin
  5.   result := 0;
  6.   for i := 1 to 100 do
  7.     result := result + i;
  8.   button3.Caption := button3.Caption + '  ' + IntToStr(result);
  9. end;
复制代码

汇编代码稍有不同:
  1. xor ebx,ebx
  2. mov eax,$00000001
  3. add ebx,eax
  4. inc eax
  5. cmp eax,$65 //不是$64
  6. jnz -$08 //不是jle, not zero
复制代码

实际上还是一样的。也就是说三种循环的效率是一样的。
1.jpg

评分

参与人数 1荣誉 +8 鱼币 +8 贡献 +5 收起 理由
小甲鱼 + 8 + 8 + 5 支持楼主!

查看全部评分

本帖被以下淘专辑推荐:

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2023-11-23 15:59:00 | 显示全部楼层
本帖最后由 星之波比 于 2023-11-23 17:00 编辑

这一块学不懂
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 17:46

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表