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
就是这样不停的对比,如果相等就跳.这样符合我们思维一些.
好的,这�
相关文档：
这样一来，Delphi使用Webservice和JAVA通讯时，可以将DELPHI的时间直接传给JAVA。从而免去了时间字符串parse之间的消耗，提高的程序效率。
Delphi时间实质就是double类型，整数部分表示天，小数部分表示当天时间，每毫秒为1/86400000。考虑到时区的转换后，JAVA和DELPHI时间之间的转换类如下：
import java.util.Calendar ......
．pas ---- pascal的缩写, 单元原始程式档（ unit source files ）
．dpr ---- 专案档 ( project files )
．dpk ---- 包裹原始程式档/组件包 ( package source files )
．dfm ---- 表单档 (记录form的内容,除去这个内容就等于删除了form这个表单)
．dcu ---- 是编译好的单元文件.若只有一个dcu文件,则不能看到源代码.
......
看如下代码：
var
buffer:array [0..6] of char;
begin
buffer:='delphi';
end;
编译通过
再看如下代码：
var
buffer:array [1..7] of char;
begin
buffer:='delphi';
end;
编译错误：
Incompatible types: 'Array' and 'String'
真不知道 ......
Delphi 2010只剩下六天的试用期了,15天的试用期过得真快.百度了很久也依旧未搜索到破解补丁,看来这版本的防盗版工作做得确实不错.无奈之下只好自己对它做做手脚了.
测试了一下,delphi只有在启动程序的时候把时间记录给更新到当前日期,系统内并不驻留相应的 ......
