设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索

delphi区分汉字和字母的函数

发布者: 总理 | 发布时间: 2012-9-25 13:36| 查看数: 1742| 评论数: 0|帖子模式



function gthz(s:string):string;
var i:integer;
begin
result:='';
for i:= 0 to Length(s) do
begin
if (Ord(s[i]) >= 127) then
result:=result+s[i];
end;
end;

最新评论

空间、域名、优惠稳定。香港空间1元,美国2元。

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

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

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

公网安备 14090202000504号

回顶部