unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);private{Privated…

functionGetStr(StrSource,StrBegin,StrEnd:string):string;//（源字符串，开始字符串，结束字符串）varin_star,in_end:integer;strtmp:string;beginin_star:=AnsiPos(strbegin,strsource)+length(strbegin);strtmp:…

functionGetRandStr(len:Integer;lowercase:Boolean=True;num:Boolean=True;uppercase:Boolean=False):string;constupperStr='ABCDEFGHIJKLMNOPQRSTUVWXYZ';lowerStr='abcdefghijklmnopqrstuvwxyz';numStr='01234567…

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=true;end;//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;be…

delphi中内置的字符串分割函数已经很强大了，能够满足我们基本的使用需要。主要有两种：ExtractStrings(Separators:TSysCharSet;WhiteSpace:TSysCharSet;Content:PAnsiChar;Strings:TStrings):Integer;Separators参数…

functionGetBiHua(chns****:s****ing):integer;constBiHua****=#10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+#10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+#12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+#7#10#7#21#10…

{将一个字符串转为二进制，再从二进制转为原字符串。把字符串(可含中文字符)转为二进制数的函数:ConvertStrToBin();把二进制数转换为字符串的函数：ConvertBinToStr()。以下两个函数亦可以对包含有中文字符的字符串进…

18位公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。组成:六位地址，八位生日，三位顺序码,一位校验码。校验方法：（1）十七位数字本体码加权求和公式S=Sum(Ai*Wi),i=0,…,16，先对前17位数字的权求…

今天在CSDN回答网友问题,实际上就是JS字符串的解码.给他写了几行简单的代码,转义符也没全部处理.闲着没事手痒痒,就把JS字符串的编解码都写出来,转义符也全部处理了.说不定以后用得上.参考的Json.org上的编码规范.

通过使用char数组来实现字符串隐藏；具体请看示例代码：代码:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButt…

//15位身份证转18位身份证//仅供参考FunctionGetIDCard(AiIDCard:String):String;ConstIDCardGene:Array[1..18]OfInteger=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);IDCardParity:Array[0..10]OfChar=('1','0','X','…

delphi关于字符串,之前没这样用过procedureTForm1.FormCreate(Sender:TObject);varstr:string;n1,n2,n3:Integer;beginstr:='ABC';n1:=Low(string);//1n2:=Low(str);//1n3:=High(str);//3<b...

DELPHI生成随机字符串<tablestyle="widows:2;text-transform:none;background-color:#ffffff;text-indent:0px;letter-spacing:normal;font:16px/24pxArial,Helvetica,sans-serif;white-space:normal;orphans:2;color…

delphi提取字符中的数字FunctionSetstring(cString:string):string;{提取数字}VAri:integer;str:string;beginstr:='';Fori:=1tolength(cString)dobegin&nbs...

//Delphi汉字转拼音，网上搜索的，加以改进，实现多个汉字批量转，中间含用字母，数字unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Co…

vari,m:integer;Lstr:string;//delphi批量生成A到Z字母fori:=0to25dobeginMemo_A.Lines.Add(Chr(97+i));end;//delphi批量生成A到Z字母按乘法口诀形式排列form:=0to25dobeginLstr:=Lstr+Chr(97+m)+'';Memo_A.Lines.Ad…

Delphi字符串拆分(字符数限制)字符串按一个数量拆分，我是应用在短信拆分。中英文均认为是2个字符，所以输入参数mText为WideString类型。可以这么理解string，widestring============string单位：1charwidestring单位…

//delphiDecodeUtf8Str解决系统自带UTF8解码缺陷functionDecodeUtf8Str(constS:UTF8String):WideString;varlenSrc,lenDst:Integer;beginlenSrc:=Length(S);if(lenSrc=0)thenExit;lenDst:=MultiByteToWideChar(CP_UTF…

//delphi字符串内多个空格合为一个空格FunctionMore2OneSpace(aStr:String):String;Vari:Integer;AWideStr:WideString;BeginAWideStr:=Trim(aStr);Result:=Copy(AWideStr,1,2);//目标串的最后一个字符，利用栈来消除…

//Delphi下的通配符查找函数FunctionIsLike(ax,abc:String):Boolean;//ax是子串,abc是源串Varabcstart,axstart,abclength,axlength:Integer;endpartabc,endpartax,subax:String;temp,abcwww,axwww:Integer;Begin//aa…