处理汉、英字符串的方法

二零一四十一月二十八
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
2014.11.28.15:16-处理汉、英字符串的方法
txt： 
在Delphi中一个汉字占两个字节，各种字符串处理函数，直接处理字符串中汉字时经常会发生乱码或不显示。
中文所用的字符全是双字节字符，英文所用的字节全是单字节字符，即（mbSingleByte）。
方法：
程序思路：
1、利用ByteType()函数返回字符串指定位置上的字符，判断返回的字符是否为双字节；
2、若是，则return；若不是，则跳过。 
程序：
 var 
     s,s1: String; 
while i<Length(s) do 
     begin 
      if (ByteType(S,i) <> mbSingleByte) then 
      begin 
       s1 := s1+ Copy(s,i,2)+' '; 
       i := i+2; 
      end 
      else 
       i:= i+1; 
     end;  
  return(s1); 
借鉴网址：http://blog.csdn.net/zhenghui1/article/details/5843762 ;

 -----------------------------------------------------------年轻的梦，在这里发芽----------------------------------------------------------------------------------------