• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            Khan's Notebook GCC/GNU/Linux Delphi/Window Java/Anywhere

            路漫漫,長修遠,我們不能沒有錢
            隨筆 - 173, 文章 - 0, 評論 - 257, 引用 - 0
            數據加載中……

            關于Utf8編碼的幾個函數

            最近一段時間老弄Utf8編碼,工作時寫了幾個函數,給大家指正一下

            //////////////////////////////////////////////
            //---------取得utf8字符的長度---------------//
            //Str:String 源字符串
            //Result:Integer utf8字符串長度
            class function TPduPush.getUTF8Len(Str: string): Integer;
            var
            i: integer;
            tmpChar: Pchar;
            begin
            tmpChar := pchar(str);
            i := 0;
            result := 0;
            while i < length(tmpChar) do begin
            if ord(tmpChar[i]) < $80 then begin
            i := i + 1;
            result := result + 1;
            end else begin
            i := i + 2;
            result := result + 3;
            end;
            end;
            end;

            ////////////////////////////////////////////////
            //----------取得字符串中的字符個數------------//
            //str:String 源字符串
            //Result:Integer 字符個數,兼容中文雙字節
            class function TPduPush.getAnsiLen(Str: string): integer;
            var
            i: integer;
            tmpChar: Pchar;
            begin
            tmpChar := pchar(str);
            i := 0;
            result := 0;
            while i < length(tmpChar) do begin
            if ord(tmpChar[i]) < $80 then
            i := i + 1
            else
            i := i + 2;
            result := result + 1;
            end;
            end;


            /////////////////////////////////////////////////
            //---------截取指定長度的utf8字符串------------//
            //str:string 源字符串
            //count:Integer 指定長度 一個漢字占三個字節,長度只能小,不能大
            //Result:string 截取后的utf8字符串
            class function TPduPush.getUTF8String(Str: string; count: Integer): string;
            var
            i, j: integer;
            tmpChar: Pchar;
            begin
            tmpChar := pchar(str);
            i := 0;
            j := 0;
            result := '';

            while i < length(tmpChar) do begin
            if j >= count then break; //英文轉碼后不能超過指定的位數
            if ord(tmpChar[i]) < $80 then begin
            result := result + string(tmpChar[i]);
            i := i + 1;
            j := j + 1;
            end else begin
            if j + 2 >= count then break; //漢字轉碼后不能超過指定的位數
            result := result + string(tmpChar[i]) + string(tmpChar[i + 1]);
            i := i + 2;
            j := j + 3;
            end;
            end;
            end;

            posted on 2006-01-19 15:06 Khan 閱讀(2193) 評論(1)  編輯 收藏 引用 所屬分類: Delphi

            評論

            # re: 關于Utf8編碼的幾個函數  回復  更多評論   

            請教一下QQ:36026877可以加QQ嗎?
            2012-06-06 20:34 | 肖偉立
            久久精品视频一| 久久99国产精品99久久| 久久久国产视频| 久久这里只有精品首页| 狠狠狠色丁香婷婷综合久久五月| 国产精品美女久久久网AV| 久久这里只精品99re66| 国产美女久久精品香蕉69| 久久91这里精品国产2020| 色综合久久久久无码专区| 精品国产综合区久久久久久| 亚洲精品无码久久一线| 精品国产乱码久久久久久浪潮| 久久综合九色综合网站| 久久一本综合| 国产成人久久精品麻豆一区| 亚洲狠狠婷婷综合久久久久| 久久最新免费视频| 超级碰久久免费公开视频| 久久夜色精品国产噜噜麻豆| 久久无码国产| 久久国产成人| 99久久无码一区人妻| 人人狠狠综合久久88成人| 久久天天躁狠狠躁夜夜不卡| 国产精品女同一区二区久久| 久久精品一区二区三区不卡| 久久久久亚洲av无码专区导航| 久久中文字幕人妻熟av女| 中文字幕久久亚洲一区| 久久久久99精品成人片三人毛片| 狠狠色婷婷综合天天久久丁香| 亚洲国产精品无码久久一区二区 | 日韩欧美亚洲综合久久| 狠狠色伊人久久精品综合网 | 精品永久久福利一区二区| 久久久久久伊人高潮影院| 亚洲国产精品无码久久九九| 久久亚洲av无码精品浪潮| 久久久久国产视频电影| 久久亚洲精品国产精品婷婷|