输入汉字转拼音

////////////////////////////////////////////////////////////////////////////
// 函数: GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string;
//
// 函数功能:获取多个汉字的拼音首字符组成的字符串.
// 例: GetPYIndexStr('程') 将返回'C'.
//     GetPYIndexStr('程序')将返回'CX'.
//
// 第二个参数决定返回大写还是小写 , 缺省为大写 .
////////////////////////////////////////////////////////////////////////////
function GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string;
var
 strChineseTemp : string;
 cTemp : Char;
begin
 result := '';
 strChineseTemp := strChinese;
 while strChineseTemp<>'' do
 begin
   cTemp := GetPYIndexChar(strChineseTemp);
   if not bUpCase then
   begin // 转换为小写
     cTemp := Chr(Ord(cTemp)+32);
   end;
   result := result + string(cTemp);
   strChineseTemp := Copy(strChineseTemp,3,Length(strChineseTemp));
 end;
end;