修改後的取得漢字首字母的lazarus函數，能夠本身增長疑難漢字，這個應該比較理想了

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

>>阅读原文<<