2009 年 10月随笔档案 - 万一

JSON 之 SuperObject(17): 实例 - 借用 Google 实现全文翻译

摘要：调用 Google 翻译的地址格式:http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + 原始文本 + "&langpair=" + 原语言 + "%7C" + 目标语言返回的数据格式如下, 可以用 responseData.translatedText 简单获取:{ "responseData" : {"... 阅读全文

posted @ 2009-10-28 14:52 万一阅读(7768) 评论(29) 推荐(0)

JSON 之 SuperObject(16): 实例 - 解析 Google 关键字搜索排名

摘要：同上例类似, 通过 'http://clients1.google.cn/complete/search?&q=' + "关键字" 可以获取 Google 的关键字搜索排名.我用 Delphi 为关键字得到的结果是:window.google.ac.h( ["Delphi",[ ["delphi 教程", "375,000 结果", "0"], ["delphi盒子", "74,900 结果",... 阅读全文

posted @ 2009-10-28 09:42 万一阅读(4611) 评论(0) 推荐(0)

JSON 之 SuperObject(15): 实例 - 模拟 Google 搜索

摘要：本例测试效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Button1: TB... 阅读全文

posted @ 2009-10-27 23:04 万一阅读(6585) 评论(2) 推荐(0)

将字符串转换成 UTF8 编码的函数

摘要：这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个.为 "小月124" 写了个反向函数: 阅读全文

posted @ 2009-10-27 22:32 万一阅读(15954) 评论(27) 推荐(0)

使用 IXMLHTTPRequest 简单获取网页源代码

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Cli... 阅读全文

posted @ 2009-10-27 21:05 万一阅读(10788) 评论(13) 推荐(0)

JSON 之 SuperObject(14): 从 XML 中解析

摘要：SuperObject 文件包中还有一个 SuperXmlParser 单元, 可以从 XML 中解析出 ISuperObject.SuperXmlParser 只有三个函数: XMLParseString、XMLParseStream、XMLParseFile, 分别从字符串、流、文件中解析.遗憾的是对中文不够友好. unit Unit1;interfaceuses Windows, Mess... 阅读全文

posted @ 2009-10-27 16:46 万一阅读(6574) 评论(20) 推荐(0)

JSON 之 SuperObject(13): 关于 SO 与 SA 函数

摘要：通过 SuperObject 的公用函数 SO 实现一个 ISuperObject 接口非常方便;前面都是给它一个字符串参数, 它的参数可以是任一类型甚至是常数数组.SA 和 SO 都是返回一 ISuperObject;SO 可以产生一个 stArray 类型的 ISuperObject, 但 SA 只会产生 stArray 类型的 ISuperObject;SA 的参数也只能是常数数组.unit... 阅读全文

posted @ 2009-10-27 15:21 万一阅读(10450) 评论(3) 推荐(0)

JSON 之 SuperObject(12): TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst...

摘要：通过 ISuperObject.GetEnumerator 可获取一个 TSuperEnumerator 对象.TSuperEnumerator 主要有: MoveNext 方法、Current 属性; 使用举例:var jo: ISuperObject; e: TSuperEnumerator;begin jo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, ... 阅读全文

posted @ 2009-10-27 14:08 万一阅读(5712) 评论(0) 推荐(0)

JSON 之 SuperObject(11): TSuperTableString、TSuperAvlEntry

摘要：通过 ISuperObject.AsObject 可获取一个 TSuperTableString 对象.TSuperTableString 的常用属性: count、GetNames、GetValuesvar jo: ISuperObject; jts: TSuperTableString;begin jo := SO('{A:1, B:2, C:3, D:{x:4, y:5, z:6}}'... 阅读全文

posted @ 2009-10-27 11:00 万一阅读(7341) 评论(12) 推荐(0)

JSON 之 SuperObject(10): Merge、Clone、ForcePath

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-26 13:59 万一阅读(5635) 评论(12) 推荐(0)

JSON 之 SuperObject(9): TSuperType

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button... 阅读全文

posted @ 2009-10-26 13:19 万一阅读(4956) 评论(1) 推荐(0)

语法基础: 使用不同的数据类型标记数组

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-25 22:38 万一阅读(4572) 评论(3) 推荐(1)

JSON 之 SuperObject(8): 关于乱码的几种情况 - 向 Henri Gourvest 大师报告

摘要：这几天学习 JSON - SuperObject, 非常幸运地得到了其作者 Henri Gourvest 大师的同步指点! (Henri 大师也是 DSPack 和 GDI+ 头文件的作者; 大师是法国人, 竟能用中文给我回复, 没想到!).学习中发现 SuperObject 有些地方对中文(或者说 Unicode)支持不是所期望的, 现在专贴提出来供大师鉴别.以下例子都会出现乱码, 虽然都可以有... 阅读全文

posted @ 2009-10-24 21:31 万一阅读(11377) 评论(16) 推荐(0)

JSON 之 SuperObject(7): 可以省略的双引号

摘要：在 JSON 中, 字符串应该在双引号中; 从上个例子才发现: 原来这个双引号可以省略, 有空格都行当然只是在程序代码中可以省略, 对象会自动识别添加的.即如此, 下面写法都可以:uses SuperObject;procedure TForm1.Button1Click(Sender: TObject);var jo1,jo2,jo3: ISuperObject;begin jo1 := S... 阅读全文

posted @ 2009-10-23 22:17 万一阅读(7479) 评论(1) 推荐(0)

JSON 之 SuperObject(6): 方法

摘要：SuperObject 的 JSON 对象中还可以包含 "方法", 这太有意思了; 其方法的格式是:procedure Method(const This, Params: ISuperObject; var Result: ISuperObject);//另外, 这是其数据类型的枚举:TSuperType = (stNull, stBoolean, stDouble, stInt, stObje... 阅读全文

posted @ 2009-10-23 21:37 万一阅读(10524) 评论(5) 推荐(0)

JSON 之 SuperObject(5): Format 与转义字符

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button... 阅读全文

posted @ 2009-10-23 18:10 万一阅读(10450) 评论(2) 推荐(1)

JSON 之 SuperObject(4): 增、删、改

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-23 17:35 万一阅读(16995) 评论(3) 推荐(1)

JSON 之 SuperObject(3): 访问

摘要：测试数据提前加入 Memo1 中:{ "name": "张三", /* 注释 */ "age": 33, "sex": true, "weight": 123.456, "tel": ["86-1111111", "86-2222222"], "addresses":{"address":"A省B市", "pc":"100001"}, "children": [ { "name": ... 阅读全文

posted @ 2009-10-23 15:11 万一阅读(29085) 评论(22) 推荐(1)

JSON 之 SuperObject(2): 构建方式与 AsJSon

摘要：SuperObject 构建一个 JSON 的常用方法: 从字符串、从文件、从流.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TB... 阅读全文

posted @ 2009-10-23 13:12 万一阅读(21038) 评论(6) 推荐(0)

JSON 之 SuperObject(1)

摘要：一直盼着 Delphi 能够直接支持 "正则表达式" 与 "JSON";Delphi 2009 刚来的时候, 有了 JSON, 但不好, 那时尝试过一点. 这是以前的链接: 什么是 JSON?Delphi 2010 带了两个相关单元: DBXJSON、DBXJSONReflect 貌似很强大, 但主要是给 DataSnap 准备的; 尝试了半天, 也很失望: 可能给 DataSnap 网络数据传递... 阅读全文

posted @ 2009-10-22 23:48 万一阅读(42018) 评论(17) 推荐(0)

Delphi 2010 新增功能之: 手势编程[5] - 关于自定义手势

摘要：添加 TGestureManager 后, 双击其图标即可进入自定义手势编辑;编辑框中, Sensitivity 用来调整手势响应的敏感度; 取消 Unidirectional 的勾选后反向手势也可识别; 其他都一目了然.一个或一组手势设计可以保存为一个 dgf 文件.通过控件属性中的 Touch - Gestures 旁边的小按钮可查看、选择或再编辑手势.通过和 TGestureManager... 阅读全文

posted @ 2009-10-21 13:11 万一阅读(5600) 评论(1) 推荐(0)

Delphi 2010 新增功能之: 手势编程[4] - 关于 OnGesture 事件过程的参数

摘要：OnGesture 事件中的 const EventInfo: TGestureEventInfo; 参数主要用于识别手势信息; 前面用过 EventInfo.GestureID, 还有 EventInfo.Location 给出了手势动作的起点坐标, 测试代码:procedure TForm1.FormGesture(Sender: TObject; const EventInfo: TGes... 阅读全文

posted @ 2009-10-21 11:49 万一阅读(5890) 评论(0) 推荐(0)

Delphi 2010 新增功能之: 手势编程[3] - 直接给某个手势指定动作

摘要：除了通过 OnGesture 事件识别手势, 还可以直接个某个手势指定动作.这需要用到: TActionList 或 TActionManager; 本例用了 TActionList.操作步骤:1、给窗体添加并关联 TGestureManager, 还要添加 TActionList;2、给动作关联 Action:3、给 Action 写代码.代码文件:unit Unit1;interfaceuse... 阅读全文

posted @ 2009-10-21 11:20 万一阅读(4467) 评论(0) 推荐(0)

Delphi 2010 新增功能之: 手势编程[2] - 通过 OnGesture 识别手势

摘要：本例尝试在 OnGesture 事件中响应 sgLeft、sgRight 手势; 操作步骤:1、加 TGestureManager 控件如窗体: GestureManager1;2、设置窗体属性 Touch.GestureManager := GestureManager1; 3、添加窗体的 OnCreate 事件, 写: Touch.StandardGestures := [sgLeft, sg... 阅读全文

posted @ 2009-10-21 11:02 万一阅读(5112) 评论(0) 推荐(1)

Delphi 2010 新增功能之: 手势编程[1] - 初识 TGestureManager

摘要：Delphi 2010 最抢眼的新功能可能就是支持"触摸屏"了, 它包括一个可触控的软键盘和识别不同的触屏手势.因为手势同时支持鼠标, 所以没有触摸屏的我也可以尝试一下其大多数的功能.首次尝试的步骤:1、加 TGestureManager 控件如窗体: GestureManager1;2、设置窗体属性 Touch.GestureManager := GestureManager1; {下面程序... 阅读全文

posted @ 2009-10-21 09:32 万一阅读(9258) 评论(0) 推荐(0)

Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪

摘要：虽然不用 TWICImage 也可以方便实现图像的修剪, 但这是 TWICImage 的方式.测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ... 阅读全文

posted @ 2009-10-20 14:32 万一阅读(5514) 评论(9) 推荐(1)

Delphi 2010 新增功能之: TWICImage 类[3] - 图像的比例变换

摘要：TWICImage 的 Width、Height 属性, 可以读取但不能赋值. 调整 TWICImage 的大小、比例, 可以通过 IWICBitmapScaler 接口.//IWICBitmapScaler.Initialize 函数有四种比例变换的算法:WICBitmapInterpolationModeNearestNeighbor = 0;WICBitmapInterpolationMod... 阅读全文

posted @ 2009-10-20 14:19 万一阅读(4872) 评论(2) 推荐(0)

Delphi 2010 新增功能之: TWICImage 类[2] - 图像的旋转变换

摘要：TWICImage 的大多功能都非常容易使用, 它最强大的功能是 ImagingFactory: IWICImagingFactory 属性, 这是个类工厂的接口.所谓类工厂是 COM 里的概念, COM 通过类工厂可以自己实例化一些类, 实例化后我们只管使用就是.通过 TWICImage.ImagingFactory 获取类工厂后, 再调用 CreateBitmapFlipRotator 建立旋... 阅读全文

posted @ 2009-10-20 13:35 万一阅读(6330) 评论(6) 推荐(0)

Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换

摘要：Graphics 单元新增了 TWICImage 类, 该类的功能源于新增的 Wincodec.pas 单元.WIC(Windows Imaging Component) 是 Windows 为 Vista 和 WPF 提供的用于图像编码、解码的 COM 组件, 但在 XP 下也能使用它.WIC 支持的图像有 BMP、PNG、ICO、JPEG、GIF、TIFF、HDP(HDP 是微软随 Vista... 阅读全文

posted @ 2009-10-19 23:55 万一阅读(9277) 评论(15) 推荐(1)

Delphi 2010 新增功能之: IOUtils 单元(7): TFile 结构的功能

摘要：IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介.TFile.Exists();//判断指定的文件是否存在TFile.Copy();//复制文件var source,dest: string;begin TFile.Copy(source, dest); {不允许覆盖同名的文件} TFile.Copy(sourc... 阅读全文

posted @ 2009-10-18 22:19 万一阅读(11902) 评论(12) 推荐(0)

Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性

摘要：以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法:TPath.GetTempPath; {获取临时文件夹路径}TPath.GetTempFileName; {获取一个临时文件名}TPath.GetPathRoot(); {提取盘符, 如: c:\}TPath.GetDirectoryName(); {提取路径}TPath.GetFileName(); {提取文件名... 阅读全文

posted @ 2009-10-17 20:48 万一阅读(9237) 评论(4) 推荐(0)

Delphi 2010 新增功能之: IOUtils 单元(5): TDirectory 的其他功能

摘要：TDirectory.CreateDirectory(); {建立新目录}TDirectory.Exists(); {判断文件夹是否存在}TDirectory.IsEmpty(); {判断文件夹是否为空}TDirectory.Copy(); {复制文件夹}TDirectory.Move(); {移动文件夹}TDirectory.Delete(); {删除文件夹, 第二个参数为 True 可删除非空... 阅读全文

posted @ 2009-10-17 00:19 万一阅读(7929) 评论(7) 推荐(0)

Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories

摘要：和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的.另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi... 阅读全文

posted @ 2009-10-16 21:17 万一阅读(6215) 评论(1) 推荐(0)

Delphi 2010 新增功能之: IOUtils 单元(3): TDirectory.GetFiles 支持通配符

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; pr... 阅读全文

posted @ 2009-10-16 20:55 万一阅读(6119) 评论(0) 推荐(1)

Delphi 2010 新增功能之: IOUtils 单元(2): TDirectory.TFilterPredicate

摘要：TDirectory.GetFiles 函数还有一个 TDirectory.TFilterPredicate 类型的参数, 这是个匿名函数类型, 可对搜索结果再处理.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr... 阅读全文

posted @ 2009-10-16 18:20 万一阅读(5448) 评论(2) 推荐(0)

Delphi 2010 新增功能之: IOUtils 单元(1): 初识 TDirectory.GetFiles

摘要：用 IOUtils 单元下的 TDirectory.GetFiles 获取文件列表太方便了;下面的例子只是 TDirectory.GetFiles 的典型应用...unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrl... 阅读全文

posted @ 2009-10-16 17:08 万一阅读(10758) 评论(2) 推荐(0)

动态数组传递数据示例 - 回复 YinGaGa 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/10/14/1310583.html#1673278unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TF... 阅读全文

posted @ 2009-10-16 14:03 万一阅读(5079) 评论(22) 推荐(0)

Delphi 2010 新增功能之: Rtti 单元(5): 获取方法的更多信息

摘要：方法的更多信息是指: 方法类型、返回值、参数等.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButt... 阅读全文

posted @ 2009-10-16 11:32 万一阅读(4280) 评论(9) 推荐(0)

Delphi 2010 新增功能之: Rtti 单元(4): TRttiRecordType

摘要：下面以 TPoint 为例, 用 TRttiRecordType 读取了结构的信息.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMe... 阅读全文

posted @ 2009-10-15 22:08 万一阅读(3975) 评论(1) 推荐(0)

Delphi 2010 新增功能之: Rtti 单元(3): TRttiOrdinalType

摘要：任何数据类型中 Rtti 中都有对应的获取信息的类, 有序类型对应的是 TRttiOrdinalType.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm)... 阅读全文

posted @ 2009-10-15 21:25 万一阅读(3778) 评论(5) 推荐(0)

Delphi 2010 新增功能之: Rtti 单元(2)

摘要：通过 Rtti 还能够调用一个类的方法, 也能读取或设置其属性值.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; 阅读全文

posted @ 2009-10-15 17:34 万一阅读(6308) 评论(14) 推荐(0)

Delphi 2010 新增功能之: Rtti 单元(1)

摘要：通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(T... 阅读全文

posted @ 2009-10-15 16:23 万一阅读(10693) 评论(4) 推荐(2)

Delphi 2010 新增功能之: 软键盘、触摸键盘(TTouchKeyboard)

摘要：本例效果动画图(因不是触摸屏, 只能用鼠标测试一下):代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Keyboard, TeCanvas;type TForm1 = class(TForm) ... 阅读全文

posted @ 2009-10-15 12:21 万一阅读(10721) 评论(3) 推荐(0)

关于 class helper for ... 语法

摘要：class helper 可能是从 Delphi 2007 增加的新语法, 因为感觉不太实用, 直到今天才测试了一下.试过之后才知道: 挺有意思的! 基本功能就是修改已存在的类.Txxx = class helper for T... {T... 表示已存在的类} {可以替换已存在的方法} {也可以有新的方法、成员}end;//这之后再使用 T... 类及其子孙类时, 都会优先使用 Txxx ... 阅读全文

posted @ 2009-10-13 21:33 万一阅读(9326) 评论(14) 推荐(0)

简体中文与繁体中文的转换函数

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-13 13:54 万一阅读(4187) 评论(7) 推荐(0)

测试 TStreamWriter、TStreamReader

摘要：TStreamWriter 和 TStringWriter 都是继承于抽象类: TTextWriter;TStreamReader 和 TStringReader 都是继承于抽象类: TTextReader.它们的功能相似, 不过 TStreamWriter、TStreamReader 又有了 "流" 的特性, 比较适合对字符串流的读写.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;ty 阅读全文

posted @ 2009-10-12 20:05 万一阅读(5224) 评论(5) 推荐(0)

测试字符串读取类: TStringReader

摘要：TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取; 读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2009-10-12 17:04 万一阅读(5437) 评论(0) 推荐(0)

测试字符串写入类: TStringWriter

摘要：以前没见过这个类, 它是在 TStringBuilder 的基础上实现的; 使用它可以方便地把各种数据类型写入字符串.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(... 阅读全文

posted @ 2009-10-12 15:31 万一阅读(2625) 评论(0) 推荐(0)

详测 Generics Collections: TObjectList、TObjectQueue、TObjectStack

摘要：TObjectList<T、TObjectQueue<T、TObjectStack<T 分别继承自:TList<T、TQueue<T、TStack<T;它们是专门用于对象的列表, 都增加了一个 OwnsObjects 布尔属性, 决定对象会不会自动释放(这也通过 Create 的参数来决定)其他基本同它们的父类, 仅给 TObjectList<... 阅读全文

posted @ 2009-10-12 00:42 万一阅读(4535) 评论(5) 推荐(0)

详测 Generics Collections TDictionary(5): 多种 Create 手段

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-11 22:38 万一阅读(4464) 评论(1) 推荐(0)

详测 Generics Collections TDictionary(4): OnKeyNotify、OnValueNotify

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections;type TForm1 = class(TForm) Button1: TButton; procedure Bu... 阅读全文

posted @ 2009-10-11 18:29 万一阅读(2673) 评论(0) 推荐(0)

详测 Generics Collections TDictionary(3): TPairEnumerator、TKeyEnumerator、TValueEnumerator、ExtractPair

摘要：//这组功能没有多少实用价值unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Cli... 阅读全文

posted @ 2009-10-11 18:16 万一阅读(3259) 评论(0) 推荐(0)

详测 Generics Collections TDictionary(2): ContainsKey、ContainsValue、AddOrSetValue、TryGetValue

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 17:13 万一阅读(4316) 评论(1) 推荐(0)

详测 Generics Collections TDictionary(1): Add、Items、Keys、Values、Remove

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 16:44 万一阅读(5334) 评论(1) 推荐(0)

详测 Generics Collections TStack(1): Push、Pop、Peek - 其他功能同 TQueue

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 15:44 万一阅读(3994) 评论(0) 推荐(0)

详测 Generics Collections TQueue (3): OnNotify、Extract

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections;type TForm1 = class(TForm) Button1: TButton; procedure Bu... 阅读全文

posted @ 2009-10-11 14:47 万一阅读(2169) 评论(0) 推荐(0)

详测 Generics Collections TQueue (2): Create、Count、Clear、TrimExcess

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 14:36 万一阅读(2140) 评论(0) 推荐(0)

详测 Generics Collections TQueue (1): Enqueue、Dequeue、Peek

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 14:21 万一阅读(2699) 评论(0) 推荐(0)

详测 Generics Collections TList (11): Create

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

posted @ 2009-10-11 12:59 万一阅读(2031) 评论(0) 推荐(0)

详测 Generics Collections TList (10): OnNotify 事件

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections;type TForm1 = class(TForm) Button1: TButton; procedure Bu... 阅读全文

posted @ 2009-10-11 02:21 万一阅读(2119) 评论(0) 推荐(0)

详测 Generics Collections TList (9): BinarySearch

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:58 万一阅读(1988) 评论(0) 推荐(0)

详测 Generics Collections TList (8): Sort

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:34 万一阅读(2134) 评论(0) 推荐(0)

详测 Generics Collections TList (7): Items、Contains

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:19 万一阅读(1953) 评论(2) 推荐(0)

详测 Generics Collections TList (6): Reverse、TrimExcess

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:12 万一阅读(1758) 评论(0) 推荐(0)

详测 Generics Collections TList (5): Move、Exchange

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 01:02 万一阅读(1676) 评论(0) 推荐(0)

详测 Generics Collections TList (4): AddRange、InsertRange、DeleteRange

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 00:56 万一阅读(2147) 评论(0) 推荐(0)

详测 Generics Collections TList (3): Insert、Delete、Remove、Extract

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-11 00:37 万一阅读(2576) 评论(0) 推荐(0)

详测 Generics Collections TList (2): First、Last、IndexOf、LastIndexOf

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-10 23:35 万一阅读(2765) 评论(0) 推荐(0)

详测 Generics Collections TList (1): Add、Clear、Count、Capacity

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文

posted @ 2009-10-10 22:21 万一阅读(2958) 评论(2) 推荐(0)

泛型排序器 TComparer

摘要：测试代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TBu 阅读全文

posted @ 2009-10-10 16:53 万一阅读(5255) 评论(5) 推荐(0)

使用泛型的 TArray 从动态数组中查找指定元素

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button... 阅读全文

posted @ 2009-10-09 22:26 万一阅读(5177) 评论(4) 推荐(0)

使用泛型的 TArray 为动态数组排序

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; pr... 阅读全文

posted @ 2009-10-09 21:29 万一阅读(5535) 评论(3) 推荐(0)

SendTextMessage 等方便的消息发送函数

摘要：突然发现 Message 单元的最后给提供了几个方便的消息发送函数:SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 SendTextMessage 举例://例子是通过发送消息的方法给 Edit 赋值:unit Unit... 阅读全文

posted @ 2009-10-09 13:49 万一阅读(8437) 评论(10) 推荐(0)

WindowsAPI: MulDiv

摘要：MulDiv(a, b, c) 中的 a、b、c 是三个 Integer, 同时返回一个 Integer.其计算方式类似于: a * b / c 或 a * b div c, 但也有区别.//例一: 相同处var a,b,c,n1,n2: Integer;begin a := 4; b := 3; c := 2; n1 := a * b div c; n2 := MulDiv(a, b... 阅读全文

posted @ 2009-10-09 11:51 万一阅读(9368) 评论(8) 推荐(0)

使用 InputBox、InputQuery 的启发

摘要：看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得...通过 InputBox 可获取用户输入的字符串:procedure TForm1.Button1Click(Sender: TObject);var str: string;begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessage(str);... 阅读全文

posted @ 2009-10-08 17:21 万一阅读(7269) 评论(8) 推荐(1)