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…

其中的utf8是一种常用的unicode编码方式,在目前的网络环境中应用最广,特别是在java,xml这种国际化很强的地方.delphi并不支持原生的utf8字符串,它对unicode的支持则是非常好了.将普通字符串赋值给String类型即可.而对…

delphi判断中文字符sql正则表达：select*fromgamelog.game2_0log_100_20121012wherenotobjectnameregexp"[\x4e00-\x9fff]"缺点：只能查询到完全中文（字符中不包括任何非中文）mysql:SELECT*FROMgamelog.game2_0log_…

functionGetFieldValue(separator:Char;strLine:string;nNum:Integer):string;varStrs:TStrings;ResultStr:string;beginStrs:=TStringList.Create;strs.Delimiter:=separator;Strs.DelimitedText:=strLine;ifnNum>St…

varsl:TS****ingList;s****:s****ing;i:Integer;begins****:='aa,bb,cc,dd';sl:=TS****ingList.Create;sl.Delimiter:=',';sl.DelimitedText:=s****;fori:=0tosl.Count-1doShowMessage(sl[i]);FreeAn…

functions****ingn(s1,s2:s****ing):integerbeginresult:=0;whilepos(s1,s2)>=0dobegins2:=copy(s2,pos(s1,s2)+1,9999);//假设s2最大长度为9999个字符result:=result+1;end;end;