恭喜自己成为博客园一份子。
2012-04-07 13:49
176 查看
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var ByteNum: byte; begin // 右移 shr asm mov al, 10000000B { 128 } shr al, 1 { shr 10000000 一次会得到 01000000 } mov ByteNum, al end; ShowMessage(IntToStr(ByteNum)); { 64; shr 相当于 ÷2 } end; end.
上面是DELPHI +ASM代码的一个小示例。 今天我确实写的这个代码。
相关文章推荐
- 上博客园已经成为一种习惯,已经是我每天必做的事情(把上网的时间花在自己身上,而不是一些所谓的名人身上)
- 恭喜自己成为CSDN博客专家
- 恭喜自己开通博客园
- 恭喜自己一下成为CSDN的博客准专家,期待3个月后成为专家
- 恭喜自己成为InfoQ12月《架构师》推荐编辑
- 恭喜自己成为InfoQ12月《架构师》推荐编辑
- 恭喜自己成为InfoQ12月《架构师》推荐编辑
- 恭喜自己成为CSDN博客准专家
- 自己在博客园的blog开通了!
- [导入](转贴)我们期待自己成为一个优秀的软件模型设计者,但是,要怎样做,又从哪里开始呢?
- 浅谈从苏格拉底的“认识你自己”到尼采的“成为你自己”
- 如何在博客园页面显示自己的头像
- 将IRepository接口进行抽象,使它成为数据基类的一个对象,这样每个子类都可以有自己的最基础的CURD了
- 怎样把自己培养成为一个优秀的程序员
- 成为自己时间的掌控者
- 让自己老婆成为全世界最幸福女人
- [重要公告]博客园准备购买自己的服务器
- 学习编程语言,不让自己成为浮躁的人!
- 给自己加油,一定要成为一个牛人!
- 《人性的弱点》发现自己并成为自己:记住自己独一无二