摘要: system.Math和system.StrUtils都有IfThen方法, 返回字符串和 返回 数值型 system.Math.IfThen(vehicle.MILE=0,0,StrToFloat(FormatFloat('0.00',RoundTo(vehicle.MILE,-2)))); system.StrUtils.IfThen(t.Mileage=0,'0',FormatFloat('... 阅读全文
posted @ 2016-11-18 19:36 海蓝7 阅读(3942) 评论(0) 推荐(0) 编辑
摘要: 八、使用结构体而不是结构体指针: 很重要 阅读全文
posted @ 2016-11-18 17:02 海蓝7 阅读(725) 评论(0) 推荐(0) 编辑
摘要: 原稿来源: http://mydelphi.5d6d.com/viewthread.php?tid=252&extra=&page=1 阅读全文
posted @ 2016-11-18 16:51 海蓝7 阅读(283) 评论(0) 推荐(0) 编辑
摘要: 在学习 资源文件 和 钩子函数 时, 经常用到当前模块句柄(HInstance)这个全局变量. 今天特别想知道, 它到底是在什么时候给赋值的.输入 HInstance; "Ctrl+鼠标" 找到它的声明之处: SysInit 单元的第 29 行(Delphi 2007) - HInstance: L 阅读全文
posted @ 2016-11-18 16:39 海蓝7 阅读(311) 评论(0) 推荐(0) 编辑
摘要: absolute //指令(变量) abstract //指令(方法) and //运算符(布尔) array //类型 as //运算符(RTTI) asm //语句 assembler //向后兼容(汇编) at //语句(异常处理) automated //访问类别符(类) begin //块 阅读全文
posted @ 2016-11-18 16:26 海蓝7 阅读(182) 评论(0) 推荐(0) 编辑
摘要: unit Unit1; interface {接口部分开始} uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部 阅读全文
posted @ 2016-11-18 16:23 海蓝7 阅读(98) 评论(0) 推荐(0) 编辑
摘要: http://www.cnblogs.com/del/archive/2008/07/08/1237856.html 非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量;如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图 阅读全文
posted @ 2016-11-18 16:19 海蓝7 阅读(225) 评论(0) 推荐(0) 编辑
摘要: goto 语句 uses 子句的写法 //uses 子句一般这样写 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; //这样写更清晰,因为Delphi忽略换行 uses 阅读全文
posted @ 2016-11-18 16:11 海蓝7 阅读(158) 评论(0) 推荐(0) 编辑
摘要: 用法:TfrmInputBox.GQInputBox('编辑跟进人','跟进人',VstFollower) 效果图: object frmInputBox: TfrmInputBox Left = 0 Top = 0 AutoSize = True BorderStyle = bsNone Capt 阅读全文
posted @ 2016-11-18 09:06 海蓝7 阅读(426) 评论(0) 推荐(0) 编辑