• <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久久久精品齐齐| 热久久这里只有精品| 国产成人久久精品一区二区三区| 思思久久99热只有频精品66| 超级碰碰碰碰97久久久久| 人妻少妇久久中文字幕| 久久国产福利免费| 久久久久久亚洲Av无码精品专口 | 97精品依人久久久大香线蕉97| 久久婷婷五月综合色高清| 婷婷综合久久狠狠色99h| 欧美一级久久久久久久大| 国产精品免费福利久久| 四虎国产精品免费久久| 国产成人久久激情91| 久久精品桃花综合| 精品久久久久一区二区三区| 77777亚洲午夜久久多人| 99久久国产主播综合精品| 亚洲精品乱码久久久久久按摩| 久久久久99精品成人片三人毛片| 久久久久亚洲AV无码麻豆| 欧美国产成人久久精品| 免费精品久久久久久中文字幕| 精品一区二区久久久久久久网站| 无码人妻久久一区二区三区蜜桃 | 久久人妻少妇嫩草AV无码专区| 久久精品亚洲乱码伦伦中文| 国产精品18久久久久久vr| 久久久久久国产精品免费无码| 久久99这里只有精品国产| 日产久久强奸免费的看| 国产成人无码精品久久久免费 | 精品久久久无码21p发布| 国产精品久久久久久久久软件 | 久久超乳爆乳中文字幕| 色妞色综合久久夜夜| 国产美女久久精品香蕉69| 大伊人青草狠狠久久| 久久国产视频网| 欧美粉嫩小泬久久久久久久|