RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串

delphi 检验手机号 IsMobileNumber

写个函数也可以functionIsMobileNumber(num:string):boolean;beginResult:=False;iflength(trim(Num))<>11thenExit;if((copy(num,1,2)'15'))thenExit;tryStrToInt(copy(num,3,9));Result:=True;...
类别:字符串 标签: 作者:admin 日期:2018-01-18 21.29.34

delphi RandString 随机字符串

functionRandString(s:string;Min,Max:Integer):string;varcount,i,r:Integer;beginResult:='';if((Max-Min)>0)thenbegincount:=Random(Max-Min+1)+Min;fori:=0tocount-1dobeginr:=Random(Length(s))+1;Result:=Resu…
类别:字符串 标签: 作者:admin 日期:2018-01-16 19.15.46

delphi 数据类型cardinal 怎么转换成 string?

delphi数据类型cardinal怎么转换成string?Vari:cardinal;beginI:=4294967295;caption:=Format('%u',[I]);
类别:字符串 标签: 作者:admin 日期:2018-01-16 12.40.13

Delphi 62进制转10进制

unitH62;interfaceusesSysUtils;functionIntToH62(N:UInt64):string;//整数转到62进制字符串functionH62ToInt(S:string):UInt64;//62进制字符串转到整数implementationfunction_C2B(C:Char):Byte;inline;beginResult…
类别:字符串 标签: 作者:admin 日期:2018-01-15 16.30.05

delphi 字符串转换为16进制整数 整数转换为16进制字符串

FunctionStr_HexToInt(Hex:String):integer;VarHexDigital:SetOfchar;i:integer;Digital:String;BeginResult:=0;HexDigital:=['1','2','3','4','5','6','7','8','9','0','A','B','C','D','E','F','a','b','c','d','e…
类别:字符串 标签: 作者:admin 日期:2018-01-11 09.50.17

Delphi CompareStr 这个函数可以模糊匹配,且不区分大小写

DelphiCompareStr这个函数可以模糊匹配,且不区分大小写vars:string;begins:='AA';ifCompareStr('bbaabb',s)>0then//CompareStr这个函数可以模糊匹配,且不区分大小写ShowMessage('aa');end;
类别:字符串 标签: 作者:admin 日期:2018-01-11 09.48.25

Delphi中的进制转换

Delphi中的几种进制转换函数非原创,收藏供查询。二进制转换12345678910111213141516171819202122232...
类别:字符串 标签: 作者:admin 日期:2018-01-08 21.14.39

Delphi中String与PAnsiChar转换

所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡strAnsi:=PAnsiChar(AnsiString(str));
类别:字符串 标签: 作者:admin 日期:2018-01-07 15.11.51

Delphi异常处理try except语句和try finally语句用法以及区别

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=****ue;end;ByteType字符串中判断是否英文ByteType('123你好吗',...
类别:字符串 标签: 作者:admin 日期:2018-01-03 23.14.28

delphi 判断字符是否是汉字,ByteType字符串中判断是否英文

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=true;end;ByteType字符串中判断是否英文ByteType('123你好吗',...
类别:字符串 标签: 作者:admin 日期:2018-01-03 23.14.28

delphi根据网络链接截取域名

//根据网络链接获取域名usess****utils;functionEx****actUrlDomain(constUrl:s****ing):s****ing;var//QQ282548160感谢提供s****A:S****ing;s****B:S****ing;iTmp:Integer;iA:Integer;begins****A:=****im(Url);s**…
类别:字符串 标签: 作者:admin 日期:2018-01-03 22.20.44

delphi 从URL地址中获得文件名

functionGetFileNameFromURL(url:string):string;varts:TStrings;begin//从url取得文件名ts:=TStringList.create;tryts.Delimiter:='/';ts.DelimitedText:=url;ifts.Count>0thenResult:=ts[ts.Count-1];finallyts.Fr…
类别:字符串 标签: 作者:admin 日期:2018-01-03 22.07.19

delphi 如何将字符串中的半角字符转换为全角字符

///半角转全角的函数functionToSDB(AInput:Widestring):WideString;varI:Integer;nChar:Cardinal;beginResult:=AInput;forI:=1toLength(AInput)dobeginnChar:=Cardinal(WideChar(AInput[I]));ifnChar=32thenbeginRes…
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.21.01

delphi Memo 过滤重复字符 IndexOf

procedureTForm1.btn1Click(Sender:TObject);vari:integer;s:string;beginfori:=0tomemo1.Lines.Count-1do//循环Memo表的所有行begins:=memo1.Lines[i];//用S变量才暂时存储这个量,最后一步恢复用memo1.Lines.Delet…
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.13.08

delphi LastDelimiter:在字符串中查找选定的字符最后出现的位置

//SysUtils.LastDelimiter声明:functionLastDelimiter(constDelimiters,Source:string):Integer;描述:LastDelimiter函数查找在Source字符串中Delimiter集合中任一字符最后出现的位置。如果找到...
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.11.04

Delphi ord chr byte等转换

中文转unicode说白了就是将单个字符,例如:“网页”的页字用Ord函数转成10进制数字,再转为16进制数据。就这样。其实,用系统的计算器,科学型计算,也可以计算出来。//Char类型与其编码值的转换:varb:Byte;c:Char;…
类别:字符串 标签: 作者:admin 日期:2018-01-02 15.07.34

delphi返回一个汉字的Unicode编码

delphi返回一个汉字的Unicode编码
类别:字符串 标签: 作者:admin 日期:2018-01-02 14.49.34

Delphi根据字符分割字串成数组

发现经常需要这个函数,每次都要翻找以前的工程文件,遂发上来方便以后索引。functionSplit(constSource,Delimiter:String):SArray;variCount,iPos,iLength:Integer;sTemp:String;aSplit:SArray;beginsTemp:=Source;…
类别:字符串 标签: 作者:admin 日期:2018-01-02 11.51.22

Delphi 正则提取TXT中的Email 数据

仅作记录,方便复用。适合以下格式的类型处理<pstyle="box-sizing:border-box;margin-top:0px;margin-bottom:0px;padding:0px;word-wrap:break-word;word-break:normal;color:#454545;font-family:"PingFangSC","Mic…
类别:字符串 标签: 作者:admin 日期:2018-01-02 11.48.51

Delphi的几种类型转换

Delphi的几种类型转换unitSupport;interfacetypedword=longword;functionWordToStr(Value:word):string;functionDwordToStr(Value:dword):string;functionStrToWord(Value:string):word;functionStrToDword(Value:st…
类别:字符串 标签: 作者:admin 日期:2018-01-01 18.21.19