Delphi7另类调试入门 - 零基础入门学习Delphi 014

冬雪雪冬

本课讲while、repeat until、for三种循环编译成机器码（汇编）后的差异。
先建立一个程序，设置三个button，分别为while, repeat和for，各自的程序如下：
第一段程序：

procedure TForm1.Button1Click(Sender: TObject);
var
  i, result : integer;
begin
  i := 1;
  result := 0;
  while i <= 100 do
    begin
      result := result + i;
      i := i + 1;
    end;
  button1.Caption := button1.Caption + '  ' + IntToStr(result);
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个地址。

i := 1;
0044DF88 B801000000       mov eax,$00000001 //将寄存器eax赋值为1
result := 0;
0044DF8D 33DB             xor ebx,ebx //将寄存器ebx赋值为0
result := result + i;
0044DF8F 03D8             add ebx,eax //将eax加到ebx中
i := i + 1;
0044DF91 40               inc eax //eax自加1
while i <= 100 do
0044DF92 83F864           cmp eax,$64 //比较eax与100
0044DF95 7EF8             jle -$08 //小于等于则跳转-8，即到95-8=8D

用XOR赋值为0而不用MOV是因为XOR仅占2字节，MOV占10字节，效率大幅提高。
第二段程序：

procedure TForm1.Button1Click(Sender: TObject);
var
  i, result : integer;
begin
  i := 1;
  result := 0;
  while i <= 100 do
    begin
      result := result + i;
      i := i + 1;
    end;
  button1.Caption := button1.Caption + '  ' + IntToStr(result);
end;

汇编代码与while完全相同！
第三段程序：

procedure TForm1.Button3Click(Sender: TObject);
var
  i, result : integer;
begin
  result := 0;
  for i := 1 to 100 do
    result := result + i;
  button3.Caption := button3.Caption + '  ' + IntToStr(result);
end;

汇编代码稍有不同：

xor ebx,ebx
mov eax,$00000001
add ebx,eax
inc eax
cmp eax,$65 //不是$64
jnz -$08 //不是jle， not zero

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

星之波比

这一块学不懂