条件陈述的一般形式是:
如果“逻辑表达”那么... ......
“逻辑表达式”是任何布尔表达式。布尔表达式是一个表达式,可以计算为TRUE或FALSE。
可以使用比较运算符和布尔运算符构造布尔表达式。
比较运算符:
= equals
<> not equals
> greater than
>= greater than or equals
< less than
<= less than or equals设置比较运算符:
= equals
<= returns true, if set1 is a subset of set2
>= returns true, if set1 is a superset of set2
in returns true, if an element is in the set布尔运算符:
AND logical and
OR logical or
NOT logical not
XOR logical exclusive disjucntion例子:
IF A = 10 THEN ...
IF A >= B THEN ...
IF C or D THEN ... (Note: C and D have to be logical, i.e. TRUE or FALSE)
IF NOT E THEN ... (Note: E has to be logical, i.e. TRUE or FALSE)C,D和E可以替换为任何逻辑表达式,例如:
IF (edit1.text = '') OR ( ISEMPTY( edit2.text ) ) THEN ...
IF NOT checkbox1.checked THEN ...请注意,逻辑表达式可以通过使用布尔运算符从更简单的逻辑表达式构造,例如:
IF ( A = 10 ) AND ( A >= B ) THEN ...
IF NOT ( ( A = 10 ) AND ( A >= B ) ) THEN ...编写逻辑表达式时常见的错误是没有注意运算符优先级(首先评估哪个运算符)。布尔运算符的优先级高于比较运算符,例如:
IF A = 10 OR A >= B THEN ...以上是错误的,因为Delphi试图评估
首先是10 OR A,而不是
A = 10。如果A本身不是逻辑表达式,则会发生错误。
解决方案是使用括号,所以上面的IF ...那么......应写成:
IF (A = 10) OR (A >= B) THEN ...
为了检查3个编辑控件,条件语句变为:
IF ( Edit1.text <> '' ) AND ( Edit2.text <> '' ) AND ( Edit3.text <> '' ) THEN ...
注意:略有偏离主题,但相关。来自Jedi JVCL project的免费组件TJvValidators,TJvValidationSummary和TJvErrorIndicator提供了一个很好的验证机制。