zoukankan      html  css  js  c++  java
  • Delphi 处理在字符串截取中避免出现半个汉字

    2007年12月7日//..处理中英文混杂左截取
    function LeftStrEx(const AText: string; ACount: Integer): string;
    var
      I,ChrLen,
      BreakLen:Integer;
      IsMBCS:Boolean;
    begin
       I := 1;
       BreakLen := 0;
       IsMBCS := False;
       if Length(AText)>ACount then
       begin
          while I<=ACount do
          begin
             if AText[I] in LeadBytes then
             begin
                ChrLen := CharLength(AText,I)-1;
                I:= I + ChrLen;
                //说明AText[ACount]不是一个中文字符的末尾
                if I>ACount then
                begin
                   IsMBCS := True;
                   BreakLen := I - ChrLen - 1;
                   Break;
                end;
             end;
             //..
             Inc(I);
          end;
       end;
       //AText[ACount]不是半个中文字符
       if not IsMBCS then
          Result := LeftStr(AText,ACount)
       else
          Result := LeftStr(AText,BreakLen);
    end;

  • 相关阅读:
    VC combobox
    myitoa()函数
    什么是虚拟显示
    一些itoa()函数
    C语言运算符优先级
    一些小问题
    return 语句会发生的错误
    Sizeof与Strlen的区别与联系
    用异或运算符实现不用第三个临时变量交换两个变量的值
    字符串化运算符#
  • 原文地址:https://www.cnblogs.com/pilybird/p/986711.html
Copyright © 2011-2022 走看看