摘要: Delphi之静态方法,虚方法virtual,动态dynamic,抽象abstract,消息 http://www.cnblogs.com/zhwx/archive/2012/08/28/2660555.html 对象的方法能定义成静态(static)、虚拟(virtual)、动态(dynamic) 阅读全文
posted @ 2016-12-12 09:46 海蓝7 阅读(1944) 评论(0) 推荐(0) 编辑
摘要: 【观看须知:】 本套视频教程为传智播客Spring2.5视频教程,教程采用的AVI方式发布,所以看起来很流畅,大家可以通过包中附带的CamPlay.exe(拖入即可)观看和学习。 【视频介绍:】 Spring2.5相比Spring 2.0和更低版本来说,虽然核心思想和原理一脉相承,但在使用和功能上都 阅读全文
posted @ 2016-12-01 00:32 海蓝7 阅读(299) 评论(0) 推荐(0) 编辑
摘要: http://blog.163.com/l1_jun/blog/static/143863882011741124581/ 由于 Delphi2005 支持中文标识符,在编写 PASCAL 词法分析器的过程中遇到了这个问题,经过多次试验找到了解决方案,至今未发现问题。 代码如下: //判断字符是否是 阅读全文
posted @ 2016-11-30 17:05 海蓝7 阅读(2636) 评论(0) 推荐(1) 编辑
摘要: http://www.cnblogs.com/Jekhn/archive/2012/08/25/2656656.html 线程,消息函数,SetWindowPos设置窗体位置 if WaitForSingleObject(FEvent,FInterval)=WAIT_OBJECT_0 then用法 阅读全文
posted @ 2016-11-25 12:26 海蓝7 阅读(169) 评论(0) 推荐(0) 编辑
摘要: http://blog.csdn.net/xiaobai1593/article/details/6672193 在多线程下面,有时候我们会希望等待某一线程完成了再继续做其他事情,要实现这个目的,可以使用Windows API函数WaitForSingleObject,或者WaitForMultip 阅读全文
posted @ 2016-11-25 12:08 海蓝7 阅读(601) 评论(0) 推荐(0) 编辑
摘要: 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) 编辑
摘要: function InputQuery(const ACaption: string; const APrompts: array of string; var AValues: array of string; CloseQueryFunc: TInputCloseQueryFunc = nil): Boolean; overload; function InputQuery(const AC... 阅读全文
posted @ 2016-11-08 19:51 海蓝7 阅读(427) 评论(0) 推荐(0) 编辑
摘要: Delphi 函数大全 - xiucaiyao的专栏 - 博客频道 - CSDN.NEThttp://blog.csdn.net/xiucaiyao/article/details/4544039 名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitpro 阅读全文
posted @ 2016-11-07 16:11 海蓝7 阅读(243) 评论(0) 推荐(0) 编辑
摘要: 1、对只读属性误解 property AppSetting: ISuperobject read fAppSetting;当看到 AppInfo.AppSetting.D['lastLat'] := FLastLat; AppInfo.AppSetting.I['lastZoom'] := FLas 阅读全文
posted @ 2016-10-28 11:56 海蓝7 阅读(176) 评论(0) 推荐(0) 编辑
摘要: json视图工具:http://www.bejson.com/jsonviewernew/ 一、Json格式化,(看到数组里面又有数组一下子疑问不是合格json):尾门地址查询: =>=>=> { "Addresses": [ "广东省 中山市 火炬开发区 在伟盛路附近 距离顷九327米", "广东 阅读全文
posted @ 2016-10-27 10:27 海蓝7 阅读(1274) 评论(0) 推荐(0) 编辑
摘要: 网友说是 hack 手段,还没有时间深入了解,不明觉厉。 [沪]风舞轻扬(81924320) 2016-10-25 16:59:08 阅读全文
posted @ 2016-10-26 10:03 海蓝7 阅读(432) 评论(0) 推荐(0) 编辑
摘要: 既然已经做出了com程序用delphi来开发的决定,那当然就要对delphi进行一些深入的了解。有人说delphi是一个用控件堆砌起来的工具,和vb没什么两样;也有人说dephi实际上是面向过程的,他的面向对象并不彻底。实际生活中持这两种观点的人不在少数,就拿我认识的一个非常好的程序员来说吧,他很早 阅读全文
posted @ 2016-10-26 09:39 海蓝7 阅读(1097) 评论(0) 推荐(0) 编辑
摘要: 举例:ShowMessageFmt('n1:%x; n2:%x', [n1,n2]); 显示Params 为 array[integer] of TvarRec 进制表示 %o(8) printf("%d(10) %x(16) procedure ShowMessageFmt(const Msg: 阅读全文
posted @ 2016-10-25 09:04 海蓝7 阅读(490) 评论(0) 推荐(0) 编辑
摘要: Cardinal 是 4 字节无符号的整型, 先看一个例数: 阅读全文
posted @ 2016-10-24 17:04 海蓝7 阅读(480) 评论(0) 推荐(0) 编辑
摘要: fdword :DWORD; procedure TForm10.btn1Click(Sender: TObject); var temp:DWORD; begin fdword :=786627; //786627 11000000000011000011 temp := fdword shr (1*8); // ShowMessage(IntToStr(... 阅读全文
posted @ 2016-10-24 16:42 海蓝7 阅读(317) 评论(0) 推荐(0) 编辑
摘要: \day01\avi\01.01_计算机基础(计算机概述).avi; \day01\avi\01.02_计算机基础(计算机硬件和软件概述).avi; \day01\avi\01.03_计算机基础(软件开发和计算机语言概述).avi; \day01\avi\01.04_计算机基础(人机交互).avi; \day01\avi\01.05_计算机基础(键盘功能键和快捷键).avi; \day01\... 阅读全文
posted @ 2016-10-20 18:45 海蓝7 阅读(1124) 评论(0) 推荐(0) 编辑
摘要: 新建--选择--确定 简单放几个控件在TIWForm1上面,运行,生成一个项目服务器: 复制 URL http://127.0.0.1:8888/$/start 打开网页。 阅读全文
posted @ 2016-10-20 14:57 海蓝7 阅读(140) 评论(0) 推荐(0) 编辑
摘要: http://www.cnblogs.com/jxsoft/archive/2011/06/02/2067712.html //在任务栏显示 进度条 object Form9: TForm9 Left = 0 Top = 0 Caption = #20219#21153#26639#26174#31 阅读全文
posted @ 2016-10-20 12:27 海蓝7 阅读(769) 评论(0) 推荐(0) 编辑