Delphi
mygodsos
这个作者很懒,什么都没留下…
展开
-
字符串处理函数
{*************************************功能:我的处理字符串的一些类和函数*说明:SubStrPos---简单字串定位* SubStrPosEx---有通配符子串定位* SubStrFind---统计子串数量,支持通配符* MidSubStr---取中间子串,支持通配符*版本:1.0*版权:原创 2008-09-29 14:30:00 · 553 阅读 · 0 评论 -
用ADO动态建立ACCESS数据库
/----用ADO动态建立ACCESS数据库,使用到 Comobj单元。20080627procedure ADOCreateMDB(const MDBName:string);var MDB:OleVariant;begin MDB:=CreateOleObject(ADOX.Catalog); MDB.Create(Provider=Microsof原创 2008-09-29 14:36:00 · 530 阅读 · 0 评论 -
Delphi中array of const应用- Super Sonic - 博客园
摘自http://www.cnblogs.com/sonicit/archive/2008/03/23/1118524.html转载 2008-10-01 23:47:00 · 1142 阅读 · 0 评论 -
读取Unicode Text 文件
function LoadUniCodeTxt(f: string):AnsiString;var ms:TMemoryStream; hs:String; ws:WideString;begin Result:=; if not FileExists(f) then exit; ms:=TMemoryStream.Create; ms原创 2008-09-29 16:11:00 · 1028 阅读 · 0 评论 -
用indy控件中的单元生成MD5码
今天弄个咚咚,想验证一下一些程序的Md5码,原来我保留了一个Md5.pas的,后面翻资料,才发现原来delphi2009自带的控件indy中就有该算法,用法十分简单: uses IdHashMessageDigest; //记得一定要先use这个单元 {乌龙哈里,delphi2009+winxp sp3, 最后修改20090513}procedure TForm1.Butto原创 2009-05-14 01:06:00 · 946 阅读 · 0 评论 -
再见了,Delphi
亲爱的Delphi: 今天我终于鼓起勇气对你说,我俩不适合,我们分手吧。 我们相识于上个世纪的98年的某一个温暖的夜晚。认识你之前对你也早有耳闻,“真正的程序员用C,聪明的程序员用delphi”。你也清楚,在你之前,我正在和Ms.Vs.Basic打得火热。但见到你之后,惊为天人,深深地为你所吸引。优美的身段,优雅的举动,无一不令我着迷。原创 2010-01-17 15:02:00 · 1038 阅读 · 3 评论