如何取汉字的首位拼音

ntcp

代码实现：

var
  s: string;
begin
  Business.Model.ExtUtils.StringToPYCapitals(Edit1.Text, S);
  Edit2.Text := S;
end;

如果有些汉字不认识，用户可以修改默认安装的 Bin 目录下 PYCODE.DAT 的文件