看流星社区

 找回密码
 注册账号
查看: 2536|回复: 0

[Delphi] delphi分离汉字和英文字母

[复制链接]

该用户从未签到

发表于 2014-6-27 08:25:24 | 显示全部楼层 |阅读模式
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;
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 04:46

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表