human78

2015年8月13日

XE3随笔21:系统默认语言与系统支持的语言列表

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

posted @ 2015-08-13 10:38 human78 阅读(182) 评论(0) 推荐(0) 编辑

XE3随笔20:几个和当前路径相关的新函数

摘要: 偶然从 SysUtils 里发现了几个路径相关的函数, 以前没见过, 可能是 Delphi XE3 新增的:GetLocaleDirectory();GetLocaleFile();LocaleDirectoryExists();LocaleFileExists();应用测试:uses IOUtil... 阅读全文

posted @ 2015-08-13 10:37 human78 阅读(156) 评论(0) 推荐(0) 编辑

XE3随笔18:实例 - 解析 Google 关键字搜索排名

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

posted @ 2015-08-13 10:36 human78 阅读(187) 评论(0) 推荐(0) 编辑

XE3随笔19:实例 - 借用 Google 实现全文翻译

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

posted @ 2015-08-13 10:36 human78 阅读(173) 评论(0) 推荐(0) 编辑

XE3随笔17:实例 - 模拟 Google 搜索

摘要: 本例测试效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class... 阅读全文

posted @ 2015-08-13 10:35 human78 阅读(190) 评论(0) 推荐(0) 编辑

XE3随笔16:将字符串转换成 UTF8 编码的函数

摘要: 这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个.//函数:function ToUTF8Encode(str: string): string;var b: Byte;begin for b in BytesOf(UTF8Encode(str)) do ... 阅读全文

posted @ 2015-08-13 10:32 human78 阅读(248) 评论(0) 推荐(0) 编辑

XE3随笔15:使用 IXMLHTTPRequest 简单获取网页源代码

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

posted @ 2015-08-13 10:31 human78 阅读(123) 评论(0) 推荐(0) 编辑

XE3随笔15:从XML中解析

摘要: SuperObject 文件包中还有一个 SuperXmlParser 单元, 可以从 XML 中解析出 ISuperObject.SuperXmlParser 只有三个函数: XMLParseString、XMLParseStream、XMLParseFile, 分别从字符串、流、文件中解析.遗憾... 阅读全文

posted @ 2015-08-13 10:30 human78 阅读(151) 评论(0) 推荐(0) 编辑

XE3随想14:关于 SO 与 SA 函数

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

posted @ 2015-08-13 10:26 human78 阅读(216) 评论(0) 推荐(0) 编辑

TSuperEnumerator、TSuperAvlIterator、ObjectFindFirst

摘要: 通过 ISuperObject.GetEnumerator 可获取一个 TSuperEnumerator 对象.TSuperEnumerator 主要有: MoveNext 方法、Current 属性; 使用举例:var jo: ISuperObject; e: TSuperEnumerator;b... 阅读全文

posted @ 2015-08-13 10:23 human78 阅读(279) 评论(0) 推荐(0) 编辑

导航