- 博客(4)
- 收藏
- 关注
RSS订阅原创 Delphi泛型应用示例之二：通用数据池
精简版，不解释。unit BambooInstenceCache;interfaceuses System.Generics.Collections;type TInterface_BambooInstenceCache = interface function Dequeue: T; function IdleCount: Inte
2015-02-27 11:02:39
1021
原创 带Cache的FileStream
当创建一个TFileStream并顺序读取的时候，如果每次读取的字节比较少时，效率是相当低的。大家可以做一个测试：var aStream: TStream; B: Byte; T: TDateTime;begin if not OpenDialog1.Execute then Exit; Caption := ''; Application.P
2012-02-06 09:50:13
702
原创 delphi 64位MD5算法
看到网上有人说indy的md5在64位下计算结果与32位下不一致。我测试了一下，确实如此，因此把自己用的64位计算结果正确的md5函数代码发出来。说明1：这个单元的代码是从indy的md5代码修改而来的。说明2：计算TBytes和String的MD5值可以使用TBytesStream或TStringStream。说明3：计算结果转换为HEX字符的代码请自行编写。 unit Ba
2012-01-20 12:12:45
987
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人