设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索

delphi分离汉字和英文字母

发布者: 总理 | 发布时间: 2012-9-25 13:37| 查看数: 2125| 评论数: 1|帖子模式

const
s:widestring='k你asdfdsf好d吗?';
var
i:integer;
y,h:string;
begin
while Length(s)<>0 do
begin
if Length(s[i])=Length(string(s[i])) then
y:=y+s[i]
else h:=h+s[i];
s:=copy(s,2,length(s));
end;
edit1.Text:=y;
edit2.Text:=h;
end;

最新评论

hbbert 发表于 2013-10-16 16:21:24
提示: 作者被禁止或删除 内容自动屏蔽
delphi乐园微信公众号

手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

GMT+8, 2016-10-23 02:14

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

公网安备 14090202000504号

回顶部