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 idhttp添加头信息

Delphi如何获取qq2010聊天窗口句柄

Delphi实现win10下Delphi 10.3.1 inline hook 修改mac网卡地址之getadaptersaddresses

Delphi 字符串与二进制数之间的互相转换

Delphi android 按包名判断是否安装了app

Delphi hide

Delphi 调用单元unit代码

Delphi一句话获取本机ip

Delphi 完全自定义窗体风格的实现

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

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