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

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

delphi utf8乱码问题

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

delphi 判断 中文字符

delphi判断中文字符sql正则表达:select*fromgamelog.game2_0log_100_20121012wherenotobjectnameregexp"[\x4e00-\x9fff]"缺点:只能查询到完全中文(字符中不包括任何非中文)mysql:SELECT*FROMgamelog.game2_0log_…
类别:字符串 标签: 作者:admin 日期:2013-03-25 15.42.07

Delphi根据不同分隔符获取字符串内容

functionGetFieldValue(separator:Char;strLine:string;nNum:Integer):string;varStrs:TStrings;ResultStr:string;beginStrs:=TStringList.Create;strs.Delimiter:=separator;Strs.DelimitedText:=strLine;ifnNum>St…
类别:字符串 标签: 作者:admin 日期:2013-03-21 20.27.23

Delphi7 中TStringList的Delimiter DelimitedText有BUG,字符串分割有问题

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…
类别:字符串 标签: 作者:admin 日期:2013-03-21 20.25.45

delphi 取出一个字符在字符串出现的次数

functionstringn(s1,s2:string):integerbeginresult:=0;whilepos(s1,s2)>=0dobegins2:=copy(s2,pos(s1,s2)+1,9999);//假设s2最大长度为9999个字符result:=result+1;end;end;
类别:字符串 标签: 作者:admin 日期:2013-03-21 20.22.41