human78

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

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

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

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

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

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

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

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

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

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

摘要： 通过 ISuperObject.AsObject 可获取一个 TSuperTableString 对象.TSuperTableString 的常用属性: count、GetNames、GetValuesvar jo: ISuperObject; jts: TSuperTableString;begi... 阅读全文

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

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

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

摘要： 以下例子都会出现乱码, 虽然都可以有变通的方案, 但如果不乱码就太好了!unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt... 阅读全文

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

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

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

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

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

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

摘要： Delphi XE3 带了两个相关单元: DBXJSON、DBXJSONReflect 貌似很强大, 但主要是给 DataSnap 准备的; 尝试了半天, 也很失望: 可能给 DataSnap 网络数据传递够用了, 但太简陋了, 好像是没写完, 对中文支持也有问题.这里还有 XML 相关的一个单元,... 阅读全文