Result := NextHook <> 0
等价于
if NextHook <> 0
then Result := true
else Result := false
就是把判断NextHook <> 0的布尔值返回给Result
等价于
if NextHook <> 0
then Result := true
else Result := false
就是把判断NextHook <> 0的布尔值返回给Result
解决方案 »
- There is no default printer currently selected
- 经管没有高手露面,可我还是继续提问题,关于DLL的
- 关于无线MODEM的数据通讯问题
- 请问edit控件在获得焦点的时候触发什么事件?在线等待!!!
- 如何把通过dbgrid分页显示的qrery中的所有数据选中并下载到本地呢?
- 安卓下项目运行的文件夹是如何获取的?
- 关于delphi中的help ,大虾请进,必定给分
- 一个菜鸟的问题,关于事件的加载
- 关于QuickReport打印的小问题.
- dbGrid中如何单击择或取销择一行,拖动选取多行
- 请教'一机双屏'高手
- 关于odbc的问题,大家一定要帮忙。高分重谢
if Next Hook <> 0 then
Result := True
else
Result := False;
if NextHook<>0 then
result:=true
else
result:=false
是一个值类型为 "Boolean" 的表达式
因为 Boolean 表达式一般都用于 if 语句,容易给人以错觉,仿佛只能用于 if 语句:
if ( NextHook <> 0 ) then ...实际上,Boolean 类型的值和 Integer, Double, Record 之类一样,可以赋值、运算:var i, j;
...
i = 1;
j = 1;
Result := i + j;
可以,为什么
Result := i <> 1;
Result := (i = 1) and (j = 3);
Result := (i > 0) xor (j < 0);
就不可以?纠正错误的习惯看法,就豁然开朗了
if NextHook <> 0 then
Result:=True
else
Result:=False;
一种简化的并且很妙的写法。