procedure TForm1.Button1Click(Sender: TObject);
var str,str1:string;
begin
 str:='abcdefggijklmn';
 str1:=copy(str,1,13);
 showmessage(str1);
end;

解决方案 »

  1.   

    演示程序中主要是用了 IsDBCSLeadByte 这个 API 来判断某字节是否在双字节字符集(例如汉字)的前导字节集中(GB 2312-80 汉字编码中的第一个字节范围 0xA1-0xFe) ( The IsDBCSLeadByte function determines whether a character is a lead byte ?that is, the first byte  of a character in a double-byte character set (DBCS).  ) procedure TForm1.Button1Click(Sender: TObject);var  CutLengthOfLine{ 被处理字符串的总长度 }, i, j: integer;  sLine{ 被处理的源字符串 }: string;  sCuted{ 按固定长度分割出来的部分字符串 }: string;  iCutLength{ 按固定长度分割出来的部分字符串的长度 }: integer;  bIsDBCS{ 是否是汉字的前半字节 }: boolean;beginif edit1.text='' then beginexit;end;  CutLengthOfLine:=strtoint(edit1.text);  if CutLengthOfLine < 2 then begin  showmessage('CutLengthOfLine 必须大于等于 2 !');  Exit;  end;  Memo2.Lines.Clear;  for i := 0 to Memo1.Lines.Count - 1 do  begin    sLine := Memo1.Lines[i];    if Length(sLine) = 0 then      Memo2.Lines.Add(#13+#10)    else    repeat //开始处理字符串      iCutLength := CutLengthOfLine;      sCuted := Copy(sLine, 1, iCutLength);//从头取出 iCutLength 长的字符串      bIsDBCS := False;//先假设没有半个字符串      for j := 1 to iCutLength do //从头到尾逐个检查,至于为什么?//原作者是这样解释的//1. 为什麽不直接抓最後一个字元判断? 因为中文字的 Trail-byte, 其内码也可能落在 Lead-byte//   的内码区间内.//2. 为什麽不直接抓最後两个字元来判断? 因为前一个字的 Trail-byte 加上後一个字的 Lead-byte,//   可能又是一个中文字.      begin        if bIsDBCS then  //如果上一个字节是汉字的前半部分          bIsDBCS := False //则此时本字节是汉字的后半部分,          //所以将是否前半个汉字检测标志设为假        else          if Windows.IsDBCSLeadByte(byte(sCuted[j])) then            bIsDBCS := True;//否则检查本字节,并根据结果设置标志      end;  //end of for//如果最后一个字节的上一个字节是汉字的前半部分,则结束时//检测标志为假,      if bIsDBCS then Dec(iCutLength);//如果最后一个字节是汉字的前半部分, 则少截取一个字符,避免乱码      Memo2.Lines.Add(Copy(sLine, 1, iCutLength));      sLine := Copy(sLine, iCutLength + 1, Length(sLine) - iCutLength);//拷贝出下一部分固定长度的字符串,循环处理    until Length(sLine) <= 0;  end;memo2.setfocus;memo2.selstart:=0;memo2.SelLength:=0;end;字符串分割的演示程序 
      

  2.   

    用C++Builder我倒可以编,用Delphi就不知道了.
      

  3.   

    用C++Builder我倒可以编,用Delphi就不知道了.
      

  4.   

    过滤汉字符
    function ExtractChineseSTring(csStr:String):STring;
    var
       i,j:integer;
       s:String;
    begin
       s:='';j:=1;
       for i:=1 to length(csStr)  do
       begin
           if Ord(csStr[i]<160) then
            begin
                s[j]:=csStr[i];
                j:=j+1;
             end;
      end;
      Result:=s;
    end;
      

  5.   

    用ByteType函数试试看,循环处理,字符串中符合下面规则即表示不存在乱码:
    1 全部是SingleByte
    2 LeadByte 与 TrailByte 前后紧跟成对出现
    思路是这样的,具体实现可能要你自己去写了,好吧
      

  6.   

    可以这样处理:
    1,判断字符串最后字符是单位字符还是双位字符,如果是单位字符就有可能是半个汉字的情况。
    2,汉字的ASCII码都大于127,如果最后字符是单位字符,那就看它的ASCII码是否大于127,如果ASCII码于大于127,那就说明是半个汉字的乱码,去除就可以了。procedure TForm1.Button1Click(Sender: TObject);
    var
    str1,str2 :string;
    begin
     Str1 :='asdfsadfasdfadfs'#168;
     str2 :=AnsiLastChar(str1);
      //AnsiLastChar(const S: string) 获得在一个字符串中最后字符的位置,它支持双字节字符
     if (length(Str2)=1) and (ord(Str2[1])>127) then
     delete(str1,length(Str1),1);
     showmessage(Str1);
    end;