(Delphi函数)根据汉字,得到拼音的缩写
摘要：
function GetPinYin(sHZ: string;mode: integer = 1): string;var i: Integer; PY: string; s: string;function GetPYIndexChar(hzchar: string): char; begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[2])... 阅读全文
posted @ 2004-09-02 15:37 yxp132 阅读(1007) 评论(0) 推荐(0) 编辑
