Delphi+汇编例子2

Delphi中使用汇编例子

-----也是大二的，接着上一个例子。呵呵，程序当时写的有点乱，请原谅：）。

Delphi中使用汇编进行混合编程，是异乎寻常的方便。如此，当你希望得到效率的时候，你可选择汇编，然而大部分工作，你仍是享受着可视化、面向对象编程的方便。delphi的语言，通过使用asm...end程序段写汇编代码部分，在汇编代码段中可以调用高级语言的变量；你需要注意的是，保护某些寄存器变量，然后呢，某些细节和dos下的汇编不同。大家看这个例子。
先大体说说一些小知识：
一，Delphi调用汇编，有两种方式。
一如---
procedure TForm1.DrawRain;
var
x1,y1,x2,y2,d,i:integer;
begin//delphi程序开始
for i:=0 to 100 do
begin
x1:=random(537);
y1:=random(280);
d:=random(7);
asm//内嵌汇编开始
push eax
mov eax,x1
sub eax,d
mov x2,eax
mov eax,y1
add eax,d
mov y2,eax
pop eax
end;;//内嵌汇编结束
times:=times+1;
drawLine2(x1,y1,x2,y2,clmedGray);
wait();
if (i div 2)=0 then drawLine2(x1,y1,x2,y2,clwindow);
end;
end;//delphi程序结束

还有一种，把外层的begin...end去掉，通过asm...end直接进入汇编。

procedure TForm1.Wait();
asm//内嵌汇编开始
push eax
mov eax,0
@loop:
add eax,1
cmp eax,1000000
jnz @loop
pop eax
end;//内嵌汇编结束

二，在汇编中使用delphi的变量

大家看第一段代码的例子，很容易明白：
asm//内嵌汇编开始
push eax
mov eax,x1 //x1是delphi局部变量，此处用作值
sub eax,d
mov x2,eax //x2是delphi局部变量，又用作内存地址
mov eax,y1
add eax,d
mov y2,eax
pop eax
end;;//内嵌汇编结束

三，汇编的不同细节

例子不帖了，大家自己比较了，如
@loop:
//...
jnz @loop
另外，大部分int中断可能不能用，我没有试通，也没见什么资料上介绍过。谁知道，给我发个消息好吗？谢谢了先。

下面是一个比较大的例子，是一个动画效果。因为以前刚开始学这方面的知识，做的很粗糙。是一个小树林里，不停的下着雨的场景---很多问题，表现突出的是，首先浮点指令没有会用（我在后面会附上有待继续尝试的浮点数指令的测试例子），一些算法当时还不会，结果画面比较单调，其次，对景物间的协调不够好，比如树没有有效保护，后来就被雨“花”了：）。
可还是做例子了，大家别笑我，一来没时间写这方面的例子了，二来，学Delphi中的汇编使用，它还是可以说明某些问题的。而且，一般的资料上，是回避这个应用的，个别的高级编程中，偶尔提及，可大家要想掌握，大都得要自己多实践，这个例子可以个给你许多教训：）。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtr