上一页 1 2 3 4 5 6 ··· 9 下一页
摘要: function MakeFileList(Path,FileExt:string):TStringList ;var sch:TSearchrec;begin Result:=TStringlist.Create; if rightStr(trim(Path), 1) '\' then ... 阅读全文
posted @ 2014-12-31 16:16 冰意 LceMeaning 阅读(324) 评论(0) 推荐(0)
摘要: //贪婪匹配var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := '标题内容'; reg.RegEx := ''; //将会全部匹配, 因为两头分别是: reg.Replacement := '... 阅读全文
posted @ 2014-11-08 11:35 冰意 LceMeaning 阅读(170) 评论(0) 推荐(0)
摘要: 以下代码经本人在Delphi XE2 下通过编译uses Comobj;procedure EXCEL1Click(Sender: TObject);const BeginRow= 1; BeginCol= 2;var iRE, I :Integer; iRow,iCol :Integer... 阅读全文
posted @ 2014-05-28 16:33 冰意 LceMeaning 阅读(1354) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2014-05-12 16:12 冰意 LceMeaning 阅读(983) 评论(0) 推荐(0)
摘要: 以下在编写IC卡项目时出现卡号转换错误时的解决方法,在XE2下测试正常。================================================uses math;function HexToDec(Hex : string) : string;var i : intege... 阅读全文
posted @ 2014-05-09 17:58 冰意 LceMeaning 阅读(339) 评论(0) 推荐(0)
摘要: uses ShareMem;type TArray = array of Integer;function CreateRandom(ResultCount, MaxInt: Integer) : TArray;var // 生成个数 最大数值 I, N... 阅读全文
posted @ 2014-04-24 16:30 冰意 LceMeaning 阅读(2121) 评论(0) 推荐(0)
摘要: 1. 用十秒钟删去你的联系方式,用十分钟清空了所有信息,用十个小时扔去了所有你送的礼物,再用十天的时间让输入法不再默认打出你的名字,十个月以后以为自己已经放下了一切,却被你不到十个字的一句问候全部唤醒。——”欠我的钱什么时候还啊?” 阅读全文
posted @ 2014-04-19 09:22 冰意 LceMeaning 阅读(157) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2014-04-11 15:15 冰意 LceMeaning 阅读(319) 评论(0) 推荐(0)
摘要: bit 整型 bit数据类型是整型,其值只能是0、1或空值。这种数据类型用于存储只有两种可能值的数据,如Yes 或No、True 或False 、On 或Off. 注意:很省空间的一种数据类型,如果能够满足需求应该尽量多用。tinyint 整型 tinyint 数据类型能存储从0到255 之间的整数。它在你只打算存储有限数目的数值时很有用。这种数据类型在数据库中占用1 个字节. 注意:如果bit类型太单调不能满足您的需求,您可以考虑用tinyint类型,因为这个类型相对也是比较安全的,不接受恶意脚本内容的嵌入。smallint 整型 smallint 数据类型可以存储从- 2... 阅读全文
posted @ 2014-03-12 11:08 冰意 LceMeaning 阅读(348) 评论(0) 推荐(0)
摘要: 在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sender: TObject);varMyMD5: TIdHashMessageDigest5;Digest: T4x4LongWordRecord;beginMyMD5 := TIdHashMessageDigest5.Creat 阅读全文
posted @ 2014-01-08 15:40 冰意 LceMeaning 阅读(254) 评论(0) 推荐(0)
上一页 1 2 3 4 5 6 ··· 9 下一页