DELPHI获取中文的拼音首字母的函数直接拷贝过去就可以用