摘要:
需要使用TPerlRegEx包 //判断是否只有字母和数字 function IsPureNumberOrAlpha(s: string): Boolean;var reg: TPerlRegEx; //声明正则表达式变量begin reg := TPerlRegEx.Create; //建立 re 阅读全文
posted @ 2017-07-25 13:52
坤霸天下
阅读(493)
评论(0)
推荐(0)
摘要:
function StrToList(const sString, Token: string): TStringList;var sTmp: string; iPos: Integer; Toklen: Integer;begin Toklen := Length(Token); Result : 阅读全文
posted @ 2017-07-25 13:49
坤霸天下
阅读(1940)
评论(0)
推荐(0)
摘要:
uses SysUtils; function TCommonAll.GetGUID: string;var LTep: TGUID; sGUID: string;begin CreateGUID(LTep); sGUID := GUIDToString(LTep); sGUID := String 阅读全文
posted @ 2017-07-25 13:47
坤霸天下
阅读(5294)
评论(1)
推荐(1)

浙公网安备 33010602011771号