销售管理软件版1楼: 怎样通过程序把字符串中的，汉字取汉语拼音的声母字母其他字符不变
如字符 30*30丈青马裤呢
通过程序生产 30*30ZQMKN
请高手指点，能帮忙写写代码吗？

2楼: Delphi中实现汉字拼音声母查询
http://www.7880.com/Info/Article-49071180.html 如excel进销存系统

3楼: 这个我会,多加些分吧,加到300帮你写一段.

4楼: 看了结果怎么样请回帖

5楼: hacker兄太黑了吧

6楼: to:SiWeiLiuLang
你那个只是把汉字转拼音...人家要的是,把一段包含汉字的字符转成拼音.

销售管理软件版7楼: 取精华，自己做下不就解决了

8楼: 算了
不和你争了，你专业，我业余，你做去吧，做好了共享上来

9楼: 嘿,那我就给你一段从字符串中取出汉字的代码.

procedure TForm1.Button1Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
str:=＇＇abdsd这是汉字13456＇＇;
for i:=1 to length(str) do
begin
if ord(str[i])>127 then
edit1.text:=Edit1.text+str[i];
end;
end;

10楼: to:SiWeiLiuLang
呵,说这话干嘛,伤感情呐...

11楼: 兄弟不会讲话
hacker兄，你老人家别生气

12楼: 不好意思我注册没几天没那么多分 如初级会计电算化软件

13楼: Hacker兄已经把取汉字的方法给你了，你把上边的代码研究下，结合结合

销售管理软件版14楼: 呵,没分就自已写吧,方法都提供给你了,按我的方法取汉字,用SiWeiLiuLang的方法转换成拼音.

15楼: 分不是最重要的，但帖子该结了一定要结。

16楼: benhacker:非常感谢！！！

17楼: 接受答案了.

18楼: 喟,分只给我一人不合适吧,人家SiWeiLiuLang也有贡献哇.

19楼: 没天理
没天理。。。。。。。。。。