delphi获取汉字拼音首字母,对中间含有字母、数字同样适用