修改后的取得汉字首字母的lazarus函数，能够本身增长疑难汉字，这个应该比较理想了

    前面要引用：LazUTF8code function getPinYinCode(const input:string):string; var pinyintable: TStrings; i,j:integer; uChar: string; begin result:=''; pinyintable:=TStringList.Create;

>>阅读原文<<