随笔分类 - Delphi 语言常识
摘要:本人是delphi , btnStart.Enabled:=false; 之间做一个递归比较耗时, btnStart.Enabled:=true; 发现在Enabled:=false; 之后还是会触发用户重复clik,诧异了。 百度了一下,发现 C# winform也是有这个问题,同一套机制。百度到
阅读全文
摘要:不需要引用其他单元文件, 如果用泛型列表TList<T>或 字典TDictionary<TKey,TValue>时需要引用:System.Generics.Collections 上面用到两个 占位符,通过 RunOnUIThread<T1,T2>()参数传进去,并且前面要标明用到的 占位符, 这个
阅读全文
摘要:继承关系用空心三角形+实线来表示 关联:就是属性 聚合: 合成:组成 依赖:作为参数存在
阅读全文
摘要:unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,System.Generics.Co...
阅读全文
摘要:快捷键: F12 代码窗口/窗体之间切换Ctrl + Shift + F 查找文件 Ctrl + Shift + G 为接口加入新的GUIDF4 运行到光标位置 F5 设置/取消断点 或用光标点击F7 调试,进入子过程 Shift + F7 Trace into next source line 没
阅读全文
摘要:uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss)
阅读全文
摘要:小数格式: 1、 FloatToStrF(list.Items[i].Distance / 1000,ffFixed,12,2);2、FormatFloat('0.00',aResult.MILEAGE/1000); //本人喜欢这个 会四舍五入的。 formatfloat('0', strtofl
阅读全文
摘要:http://blog.163.com/l1_jun/blog/static/143863882011741124581/ 由于 Delphi2005 支持中文标识符,在编写 PASCAL 词法分析器的过程中遇到了这个问题,经过多次试验找到了解决方案,至今未发现问题。 代码如下: //判断字符是否是
阅读全文
摘要: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('...
阅读全文
摘要:原稿来源: http://mydelphi.5d6d.com/viewthread.php?tid=252&extra=&page=1
阅读全文
摘要:在学习 资源文件 和 钩子函数 时, 经常用到当前模块句柄(HInstance)这个全局变量. 今天特别想知道, 它到底是在什么时候给赋值的.输入 HInstance; "Ctrl+鼠标" 找到它的声明之处: SysInit 单元的第 29 行(Delphi 2007) - HInstance: L
阅读全文
摘要:absolute //指令(变量) abstract //指令(方法) and //运算符(布尔) array //类型 as //运算符(RTTI) asm //语句 assembler //向后兼容(汇编) at //语句(异常处理) automated //访问类别符(类) begin //块
阅读全文
摘要:unit Unit1; interface {接口部分开始} uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部
阅读全文
摘要:1、对只读属性误解 property AppSetting: ISuperobject read fAppSetting;当看到 AppInfo.AppSetting.D['lastLat'] := FLastLat; AppInfo.AppSetting.I['lastZoom'] := FLas
阅读全文
摘要:【仙人】[上海]心跳(815936792) 2015-08-18 10:27:59 我这个控件中间是杠 ,可以查出数据来,放到别人的机器上就是斜杠/数据查不出来,该怎么弄 【大师】深圳-FlyDream(1715666978) 2015-08-18 10:30:26日期的设置格式 【仙人】[宝安]将
阅读全文
摘要:FormatDateTime('yyyy-mm-dd hh:nn:ss',Now) FormatDateTime('hh:mm:ss:zz',Now) if (TimeOf(now) < pub_StartWorkTime) or (TimeOf(now) > pub_EndWorkTime) th
阅读全文