摘要: 例: update cyj_cx_dwjl set xrsj=DATEADD(day, DATEDIFF(day, xrsj, GETDATE()), XRSJ) where CONVERT(VARCHAR(10),xrsj,20)='2019-04-26'; 阅读全文
posted @ 2020-04-12 17:22 皮皮鲁PPL 阅读(1174) 评论(0) 推荐(0) 编辑
摘要: 最近91eHR项目需要用到JSon数据打包,根据很多人推荐,下了LkJSON,编写了个Demo后发现LKJSON对Unicode即中文支持很糟糕,修改其代码让它支持中文,工作量还是不小,找了资料,发现SuperObject第三方控件包,试用了下并编写了个DEMO,发现还是蛮强大。废话少说,看看下面的... 阅读全文
posted @ 2015-09-07 10:42 皮皮鲁PPL 阅读(1737) 评论(0) 推荐(0) 编辑
摘要: 闲话:正在用 WebBroker 写一个小网站,感受颇多:1、如果是写一个小东西,应该先考虑下 WebBroker,因为它是分分钟即可上手的。2、如果要写一个大东西,或许也应该考虑下 WebBroker,因为相比其他它有着最高的灵活度(但这只是相像,因为我只是写了一个小东西)。3、Delphi 3 ... 阅读全文
posted @ 2015-09-07 09:25 皮皮鲁PPL 阅读(327) 评论(0) 推荐(0) 编辑
摘要: macrolen 给了这样一些数据, 说是用淘宝的 API 获取的 JSON 数据, 让我帮助解析:{"items_search_response":{"item_search":{"item_categories":{"item_category":[{"category_id":150708,"... 阅读全文
posted @ 2015-09-07 09:24 皮皮鲁PPL 阅读(298) 评论(0) 推荐(0) 编辑
摘要: 调用 Google 翻译的地址格式:http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + 原始文本 + "&langpair=" + 原语言 + "%7C" + 目标语言返回的数据格式如下, 可以用 respo... 阅读全文
posted @ 2015-09-07 09:21 皮皮鲁PPL 阅读(221) 评论(0) 推荐(0) 编辑
摘要: 同上例类似, 通过 'http://clients1.google.cn/complete/search?&q=' + "关键字" 可以获取 Google 的关键字搜索排名.我用 Delphi 为关键字得到的结果是:window.google.ac.h( ["Delphi",[ ["de... 阅读全文
posted @ 2015-09-07 09:20 皮皮鲁PPL 阅读(175) 评论(0) 推荐(0) 编辑
摘要: 本例测试效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class... 阅读全文
posted @ 2015-09-07 09:18 皮皮鲁PPL 阅读(317) 评论(0) 推荐(0) 编辑
摘要: SuperObject 文件包中还有一个 SuperXmlParser 单元, 可以从 XML 中解析出 ISuperObject.SuperXmlParser 只有三个函数: XMLParseString、XMLParseStream、XMLParseFile, 分别从字符串、流、文件中解析.遗憾... 阅读全文
posted @ 2015-09-07 09:13 皮皮鲁PPL 阅读(258) 评论(0) 推荐(0) 编辑
摘要: 通过 SuperObject 的公用函数 SO 实现一个 ISuperObject 接口非常方便;前面都是给它一个字符串参数, 它的参数可以是任一类型甚至是常数数组.SA 和 SO 都是返回一 ISuperObject;SO 可以产生一个 stArray 类型的 ISuperObject, 但 SA... 阅读全文
posted @ 2015-09-07 09:12 皮皮鲁PPL 阅读(465) 评论(0) 推荐(0) 编辑
摘要: 通过 ISuperObject.GetEnumerator 可获取一个 TSuperEnumerator 对象.TSuperEnumerator 主要有: MoveNext 方法、Current 属性; 使用举例:var jo: ISuperObject; e: TSuperEnumerator;b... 阅读全文
posted @ 2015-09-07 09:10 皮皮鲁PPL 阅读(313) 评论(0) 推荐(0) 编辑