当在报表里显示，或文本里显示字符串时，由于长度有限从而要切掉一部分字符，保留前边的，当串中同时包含单字节和双字节字符时，在切掉串后可能会在末位出现乱码，由于把末位的双字节字符切成了单字节找成的需要使用…

//ByteType:判断是单字节还是双字节;procedureTForm9.BitBtn3Click(Sender:TObject);vars:System.AnsiString;iCount:Integer;c:AnsiString;begins:='ChinaBank（中国银行）';//ByteType:针对的是采用MBCS字符集的数据…

问题：判断特定字符是为单字节还是双字节解决：//mbSingleByte单字节字符mbLeadByte双字节字符首字节mbTrailByte双字节字符尾字节Edit1.Text:='0102030405060708我1112131415';n:=Length(WideString(Edit1.Text));Sh…

//转简体procedureTfm_Words.Button6Click(Sender:TObject);beginself.memo_msg.Text:=STConvert(memo_msg.Text,ttSimple);end;//转繁体procedureTfm_Words.Button7Click(Sender:TObject);beginself.memo_msg.Text:=…

去年的写过关于跨平台的字符串代码，发现没说明白，自己都看糊涂了。于是做了这样的测试：procedureTForm3.Button1Click(Sender:TObject);varI:Integer;s:string;begins:='0123456789';forI:=0tos.length-1dobeginme…

例子1//声明:CreateFontIndirect(constp1:TLogFont{字体结构}):HFONT;{返回新字体指针}//TLogFont是tagLOGFONTA结构的重定义:tagLOGFONTA=packedrecordlfHeight:Longint;{字体高度}lfWidth:Longint;{字体平均宽度}lf…

将一个字符串转换成MemoryStream的函数.functionStringToMemory(s:string):TMemoryStream;varbytes:TBytes;ms:TMemoryStream;beginms:=TMemoryStream.Create;bytes:=TEnCoding.UTF8.GetBytes(s);ms.Write(bytes,Leng…

1.copy(str,pos,num)从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def'2.concat(str1,str2{,strn})把各自变量连接起来,返回连接后的字符串(长度不能超过255…

使用单元StrUtils//提取字符串functionSubString(html,Cstr_L,Cstr_R:string):string;varsPosB,sPosE:integer;Lwhtml,LwCstr_L,LwCstr_R:string;beginResult:='';iftrim(html)=''thenexit;&...

functionExtractURIQueryString(constURI:string):string;varQueryStart:Integer;QueryEnd:Integer;beginResult:='';QueryStart:=SysUtils.AnsiPos('?',URI);ifQueryStart=0thenExit;Inc(QueryStart);QueryEnd:=SysU…

Unicode字符集就是为了解决字符集这种不兼容的问题而产生的，它所有的字符都用两个字节表示，即英文字符也是用两个字节表示如果还为了这个纠结，就直接看看后面的解说，做决定吧。一般如果用到中文或者其它特殊字符，…

方法1userHttpapp;HttpEncode(AnsiToUtf8('中文'));方法2usesIdURI;..beginS:=TIdURI.URLEncode(str);//S:=TIdURI.URLDecode(str);end;

一、usesHTTPApp二、使用前要用UTF8Encode转换成utf-8编码HTTPEncode(UTF8Encode(Text));不然和标准的url_encode()编码结果不一致，查询结果自然不是预期的。可以通用浏览器地址来查看。解码后要用UTF8Decode做解码后…

Delphi中处理URL时，有时会遇到编码问题，比如文件名如果含有空格，则空格会被%20代替。如果不进行转换，则会出现问题。在网上找到一段转换代码(Delphi没有自带的？)，可以顺利进行//delphi最快速编码URLDecodeURLEn…

有朋友问说UnicodeString与TStringBuilder有什么关系？粗浅的个人理解，请内行指正：后者可以用于前者，但一般情况下不能这样用，在DelphiXE4中String只是UnicodeString的一个别名，也只有这一种字符串类型。TString…

DelphiXE的TStringHelper，对操作字符串进一步带来更多的方法，估计XE5还能继续用到。System.SysUtils.TStringHelper大小写转换:--------------------------------------------------------------------------------…

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…