如何獲取漢字拼音簡碼[2]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    定義一個SplitStr函數參數是文本框中的字符串使用ByteType函數返回這個字符串中每個字符所占的字節數如果返回mbSingleByte（單字節）那麼說明這個字符是字母或數字如果是雙字節那麼說明這個字符是漢字根據字符的字節數通過copy函數獲取當前這個字符然後調用GetSpell函數來返回這個字符的拼音簡碼主要代碼如下
    function TFormSplitStr(str: string): string;
    var
      text: String;
      i Count: Integer;
    begin
      text := ;
      i := ;
      while i <= Length(str)  do
        begin
         if ByteType(str i) = mbSingleByte then
          Count :=
         else
          Count := ;
         text := text + GetSpell(copy(str i count));
         i := i + count;
       end;
      Result := text;
    end;

right>[http://developcsaicn/delphi/htm>]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24831.html