delphi区分汉字和字母的函数

本文整理自网络，侵删。

 delphi区分汉字和字母的函数
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; 

相关阅读 >>

Delphi 实现生成手机号段

Delphi sysutils.comparestr、sysutils.comparetext - 字符串比较

webbrower常见问题及解决方法

Delphi获取操作系统安装磁盘盘符

Delphi 关闭指定窗口

Delphi 跟随鼠标位置点击弹出菜单

Delphi idhttp1 xmlpost

Delphi 读取文件获取指定字符串

Delphi application.restore不起作用了,该如何处理

Delphi code无法回车换行

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

转载请注明出处：木庄网络博客 » delphi区分汉字和字母的函数