摘要： 产生原因的win7系统的短日期格式“yyyy/m/d”，在给sqlit中的日期格式字段插入当前日期时用DateTimeToStr(Now)函数，该值有时候会在sqlite表中会有时候变成1899-12-30。要解决该问题要在主form的Create事件中设置程序的时间格式，还要设置Applicati... 阅读全文

摘要： usesPerlRegEx;function CheckSortKey(SortKey:string):Boolean;//验证排序数字字符串var PerlRegEx: TPerlRegEx;begin PerlRegEx := TPerlRegEx.Create(nil); PerlRe... 阅读全文

摘要： usesPerlRegExfunction CheckmobileNo(mobileNo: string): Boolean; //验证手机号var PerlRegEx: TPerlRegEx;begin PerlRegEx := TPerlRegEx.Create(nil); PerlRe... 阅读全文

摘要： userPerlRegEx;function CheckEmail(EmailAddr: string): Boolean;//验证Emailvar PerlRegEx: TPerlRegEx;begin PerlRegEx := TPerlRegEx.Create(nil); PerlRe... 阅读全文

摘要： 避免出现容易混淆的0和O字符。function GenerateVerifyCode(var code:string):TBitmap;var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..34]... 阅读全文

摘要： 将flowchart的内容输出成位图的函数function GetFlowChartBitmap(FC: TdxFlowChart): TBitmap;var H, W, NewW: Integer; AAlign: TAlign; ABorder: TBorderStyle; SInfo: TSc... 阅读全文