|
——此文章摘自《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>] [] |
