unit pinyinfunction　　//汉字拼音相关的函数定义单元
　Function　GetHZPY(HZstr: String):String　　　//将任意字符串中的汉字换成拼音首字母（大写）
　function　GetPYIndexChar(hzchar: string):char　//将一个汉字转化成拼音首字母（大写）
,unit pinyinfunction // the function of Chinese characters spelling the definition of the relevant unit Function GetHZPY (HZstr: String): String // will be any string of characters into the first letter of alphabet (upper case) function GetPYIndexChar (hzchar: string): char // will be a Chinese character into the first letter of alphabet (upper case)