• <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 閱讀(2195) 評論(1)  編輯 收藏 引用 所屬分類: Delphi

            評論

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

            請教一下QQ:36026877可以加QQ嗎?
            2012-06-06 20:34 | 肖偉立
            99精品久久精品一区二区| 久久99精品久久久久久久久久| 精品无码久久久久久尤物| 久久青青草原亚洲av无码app | 99久久免费国产精品| 国产精品伦理久久久久久| 国内精品欧美久久精品| 亚洲精品99久久久久中文字幕 | 亚洲av成人无码久久精品| 2021国产成人精品久久| 亚洲人成电影网站久久| 久久久久久久亚洲Av无码| 亚洲午夜久久影院| 伊人久久综合无码成人网| 久久中文字幕一区二区| 国产成人久久精品一区二区三区| 久久国产精品-国产精品| 国产成人综合久久精品红| 久久国产精品-国产精品| 伊人久久综合精品无码AV专区| 94久久国产乱子伦精品免费 | 99久久免费国产精品| 久久久精品人妻一区二区三区蜜桃| 国产三级精品久久| 久久国产精品国产自线拍免费| 久久精品国产99国产精品亚洲| 国产激情久久久久影院老熟女免费| 欧美黑人激情性久久| 少妇无套内谢久久久久| 日本精品一区二区久久久 | 久久精品无码av| 久久九九有精品国产23百花影院| 精品久久久无码21p发布| 久久久久无码中| 久久av免费天堂小草播放| 欧美亚洲国产精品久久蜜芽| 久久久久免费看成人影片| 久久99国产精品尤物| 国产精品福利一区二区久久| 97精品国产91久久久久久| 99久久国产综合精品麻豆|