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 自带的 base64 编解码函数

Delphi copyfileprogressbar 拷贝文件显示进度条

Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具

Delphi(更改图标)

Delphi idhttp使用代理ip

Delphi 显示程序占用内存多少

Delphi tidhttp+tidssliohandlersocket+ssl

Delphi获取其他进程中listbox和combobox的内容

Delphi 动态生成九宫格按钮

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...