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

delphi KMP(字符串匹配)算法

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);private{Privated…
类别:字符串 标签: 作者:admin 日期:2013-11-22 19.42.07

delphi截取字符串的方法

functionGetStr(StrSource,StrBegin,StrEnd:string):string;//(源字符串,开始字符串,结束字符串)varin_star,in_end:integer;strtmp:string;beginin_star:=AnsiPos(strbegin,strsource)+length(strbegin);strtmp:…
类别:字符串 标签: 作者:admin 日期:2013-11-15 11.31.24

delphi随机字符(密码生成)函数

functionGetRandStr(len:Integer;lowercase:Boolean=True;num:Boolean=True;uppercase:Boolean=False):string;constupperStr='ABCDEFGHIJKLMNOPQRSTUVWXYZ';lowerStr='abcdefghijklmnopqrstuvwxyz';numStr='01234567…
类别:字符串 标签: 作者:admin 日期:2013-11-12 11.06.28

Delphi 判断字符是否是汉字

//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i40869)thenresult:=falseelseresult:=true;end;//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;be…
类别:字符串 标签: 作者:admin 日期:2013-11-12 10.57.42

Delphi中分隔字符串函数的使用

delphi中内置的字符串分割函数已经很强大了,能够满足我们基本的使用需要。主要有两种:ExtractStrings(Separators:TSysCharSet;WhiteSpace:TSysCharSet;Content:PAnsiChar;Strings:TStrings):Integer;Separators参数…
类别:字符串 标签: 作者:admin 日期:2013-11-12 09.21.50

delphi计算汉字笔划的函数

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…
类别:字符串 标签: 作者:admin 日期:2013-11-12 09.02.56

delphi 字符串与二进制数之间的互相转换

{将一个字符串转为二进制,再从二进制转为原字符串。把字符串(可含中文字符)转为二进制数的函数:ConvertStrToBin();把二进制数转换为字符串的函数:ConvertBinToStr()。以下两个函数亦可以对包含有中文字符的字符串进…
类别:字符串 标签: 作者:admin 日期:2013-10-30 11.16.22

delphi 18位身份证号码的校验

18位公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。组成:六位地址,八位生日,三位顺序码,一位校验码。校验方法:(1)十七位数字本体码加权求和公式S=Sum(Ai*Wi),i=0,…,16,先对前17位数字的权求…
类别:字符串 标签: 作者:admin 日期:2013-10-10 23.20.15

Delphi编解码JS字符串

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

Delphi字符串隐藏一法

通过使用char数组来实现字符串隐藏;具体请看示例代码:代码:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButt…
类别:字符串 标签: 作者:admin 日期:2013-10-10 21.12.32

delphi 15位身份证号码转18位身份证号码

//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','…
类别:字符串 标签:身份证 作者:admin 日期:2013-10-10 20.39.47

delphi 关于字符串, 之前没这样用过

delphi关于字符串,之前没这样用过procedureTForm1.FormCreate(Sender:TObject);varstr:string;n1,n2,n3:Integer;beginstr:='ABC';n1:=Low(string);//1n2:=Low(str);//1n3:=High(str);//3<b...
类别:字符串 标签: 作者:admin 日期:2013-08-13 12.57.50

DELPHI生成随机字符串

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…
类别:字符串 标签: 作者:admin 日期:2013-04-05 20.09.53

delphi 提取字符中的数字

delphi提取字符中的数字FunctionSetstring(cString:string):string;{提取数字}VAri:integer;str:string;beginstr:='';Fori:=1tolength(cString)dobegin&nbs...
类别:字符串 标签: 作者:admin 日期:2013-04-05 20.06.32

Delphi 汉字转拼音,网上搜索的,加以改进,实现多个汉字批量转,中间含用字母,数字

//Delphi汉字转拼音,网上搜索的,加以改进,实现多个汉字批量转,中间含用字母,数字unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Co…
类别:字符串 标签: 作者:admin 日期:2013-04-05 19.53.57

delphi 批量生成 A到Z 字母

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…
类别:字符串 标签: 作者:admin 日期:2013-04-05 19.51.02

Delphi字符串拆分(字符数限制)

Delphi字符串拆分(字符数限制)字符串按一个数量拆分,我是应用在短信拆分。中英文均认为是2个字符,所以输入参数mText为WideString类型。可以这么理解string,widestring============string单位:1charwidestring单位…
类别:字符串 标签: 作者:admin 日期:2013-04-02 22.14.26

delphi DecodeUtf8Str解决系统自带UTF8解码缺陷

//delphiDecodeUtf8Str解决系统自带UTF8解码缺陷functionDecodeUtf8Str(constS:UTF8String):WideString;varlenSrc,lenDst:Integer;beginlenSrc:=Length(S);if(lenSrc=0)thenExit;lenDst:=MultiByteToWideChar(CP_UTF…
类别:字符串 标签: 作者:admin 日期:2013-04-02 16.44.59

delphi字符串内多个空格合为一个空格

//delphi字符串内多个空格合为一个空格FunctionMore2OneSpace(aStr:String):String;Vari:Integer;AWideStr:WideString;BeginAWideStr:=Trim(aStr);Result:=Copy(AWideStr,1,2);//目标串的最后一个字符,利用栈来消除…
类别:字符串 标签: 作者:admin 日期:2013-04-02 16.05.51

Delphi 下的通配符查找函数

//Delphi下的通配符查找函数FunctionIsLike(ax,abc:String):Boolean;//ax是子串,abc是源串Varabcstart,axstart,abclength,axlength:Integer;endpartabc,endpartax,subax:String;temp,abcwww,axwww:Integer;Begin//aa…
类别:字符串 标签: 作者:admin 日期:2013-04-02 15.41.29