Delphi中如何获取汉字拼音简码

Question

如题所述

Answer 1

　　定义一个SplitStr函数，参数是文本框中的字符串，使用ByteType函数返回这个字符串中每个字符所占的字节数，如果返回mbSingleByte（单字节），那么说明这个字符是字母或数字，如果是双字节，那么说明这个字符是汉字。根据字符的字节数通过copy函数获取当前这个字符，然后调用GetSpell函数来返回这个字符的拼音简码。主要代码如下：　　function TForm1.SplitStr(str: string): string;　　var　　text: String;　　i, Count: Integer;　　begin　　text := '';　　i := 1;　　while i <= Length(str) do　　begin　　if ByteType(str, i) = mbSingleByte then　　Count := 1　　else　　Count := 2;