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 回车 选择下一个控件

Delphi xe实现android 添加图片资源到应用并使用它

Delphi byte数组根据utf8 转换为string

Delphi异常处理try except语句和try finally语句用法以及区别

Delphi xe8 为image设置渐变效果

Delphi 传输文件例子的核心代码

Delphi rgbtohsb

Delphi xe5 android 调用手机震动（通过jobject测试是否支持震动）

Delphi 获取文件夹路径最后一级文件夹目录名称

Delphi运行时的问题，cannot focus a disabled or invisible window！

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

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