delphi分离汉字和英文字母

本文整理自网络，侵删。

 delphi分离汉字和英文字母
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;
 

相关阅读 >>

Delphi idhttp post

Delphi 快速读取txt 指定行的数据

Delphi 图像分割

纯真ip数据库解析Delphi d10.1下正常使用

Delphi ip地址转换str字符

Delphi webbrowser中模拟连接点击（非鼠标模拟）

快速查询posex与posrightex

Delphi以鼠标为中心缩放图片以及拖动（采用区域抠图拉伸的方式）

Delphi unigui 安装和配置hyperserver

Delphi 判断一个颜色是否是亮色

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi分离汉字和英文字母