Delphi 条件判断那些事
技术交流,DH讲解. 之前照着天书夜读,用Delphi来弄了下循环体,现在就来弄一下条件判断吧.
首先肯定是我们经常看见的IF语句咯. Var
I: Integer;
Begin
I:= 99;
If (I> 0)And (I< 0) Then
Writeln('I>0')
Else
If (I> 10)And (I< 100) Then
Writeln('I>10 and I100');
End.
反汇编出来会是什么样子的呢?
Project5.dpr.12: I:= 99;
004AC44C B863000000 mov eax,$00000063
Project5.dpr.13: If (I> 0)And (I< 0) Then
004AC451 85C0 test eax,eax
004AC453 7E1F jle $004ac474
004AC455 85C0 test eax,eax
004AC457 7D1B jnl $004ac474
Project5.dpr.14: Writeln('I>0')
004AC459 A1DC314B00 mov eax,[$004b31dc]
004AC45E BAC4C44A00 mov edx,$004ac4c4
004AC463 E874BAF5FF call @Write0UString
004AC468 E8BF89F5FF call @WriteLn
004AC46D E83E7FF5FF call @_IOTest
004AC472 EB3E jmp $004ac4b2
Project5.dpr.16: If (I> 10)And (I< 100) Then
004AC474 83F80A cmp eax,$0a
004AC477 7E20 jle $004ac499
004AC479 83F864 cmp eax,$64
004AC47C 7D1B jnl $004ac499
Project5.dpr.17: Writeln('I>10 and I100');
004AC499 A1DC314B00 mov eax,[$004b31dc]
004AC49E BA04C54A00 mov edx,$004ac504
004AC4A3 E834BAF5FF call @Write0UString
004AC4A8 E87F89F5FF call @WriteLn
004AC4AD E8FE7EF5FF call @_IOTest
我们这里就容易得出来Delphi里面IF语句的结构了.
判断1
不满足就跳-------------------------|
满足条件代码 |
[无条件Jmp到所有判断外] |
[判断2] je->cmp->je->cmp->je
就是这样不停的对比,如果相等就跳.这样符合我们思维一些.
好的,这�
相关文档：
Oracle性能优化与Delphi代码
刚学了点oracle方面的知识，感觉以前写代码只凭喜好写，完全没有深究缘由，导致在内行人看来，写的都是垃圾代码，现在就把学到的一些东西写出来，也算是给刚入门的朋友一点帮助吧。
以前，写数据库访问代码，感觉很简单，不就是sql语句嘛，所以什么语句都是这样写：
A：
......
delphi中的realAudio ActiveX控件的使用
作者:seeker 日期:2009-04-26
1：{=====================打开=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......
Delphi动态事件深入分析
2009-2-7
作者:不得闲
核心提示：本实验证明了在类中方法的调用时候，所有的方法都隐含了一个Self参数，并且该参数作为对象方法的第一个参数传递...
首先做一个空窗体，放入一Button。
在implementation下面声明两个方法如下：
//外部方法，只声明一个参数，此时按照标准的对象内部事件方法T ......
15本Delphi书籍(PDF格式)下载 (转)
文件名: Delphi组件参考大全.rar
下载地址: http://www.rayfile.com/files/678ca1e3-f73f-11de-9d02-0014221b798a/
文件名: Delphi信息系统开发实例精选.rar
下载地址: http://www.rayfile.com/files/fb328f02-f73e-11de-8a76-0014221b798a/
文件名 ......
技术交流,DH讲解. 哈哈,我承认我是标题党.
最近看天书夜读里面是对C语言的代码反汇编,不错,可惜Delphi没有这样的书,那我们自己动手吧.
首先进入For循环了. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......
