摘要: 爱过的人,,如同失贞,,,因为能对自己不忠夫帝皇之人,囚山水以为家,孤独时亦不可拿天下作陪伟大的人,热爱遥远的心思和震动的直觉,追求寄制一切的平衡,,笃信擎制天地的能力,,如果走得太远,,终难骗自一生凡夫之人,怀大悲者谓之愚善,自闭者更难有所学人类智慧,不过见多说多的艺术,, 为人之俗,人皆有之,,,世上之事大抵如此很多的女人,爱与嫁是二件完全不一样的事,,她宁可嫁给一个喜欢她的人,而不是她喜欢的人,,,很多男人,,,开始爱上一个女人,只因他发现某个其它男人也要爱这个女的开始,,男女的结合, 必求双方性情相互平衡,反而,太相似的人是无法结合的,,爱与怨念,皆生来不停,少年激进,青年已有老志,最 阅读全文
posted @ 2008-03-20 10:34 delphi中间件 阅读(213) 评论(0) 推荐(0) 编辑
摘要: procedure CHNDBNavigator(ADBNavigator:TDBNavigator);var i:Integer;begin with ADBNavigator do for I := 0 to ComponentCount - 1 do if Components[I] is TNavButton then begin case TNavButton(Components[I]).Index of nbFirst: TNavButton(Components[I]).Caption := '首笔'; ... 阅读全文
posted @ 2008-03-20 10:28 delphi中间件 阅读(471) 评论(0) 推荐(0) 编辑
摘要: 标题 : 【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean;$[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text 阅读全文
posted @ 2008-03-20 10:25 delphi中间件 阅读(395) 评论(0) 推荐(0) 编辑