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 动态更改webbrowser数据流内容

Delphi windows 编程[4] - 学习窗体生成的过程四

Delphi 为数字补充前缀0

检测系统信息的单元 computerinfo.pas

Delphi 如何获取窗口的图标

高手谈做程序员的8大基本原则

Delphi 得到一个cuid用户唯一标识

Delphi检查自身是否被调试

Delphi fmx 从app程序直接跳转到支付宝付款转帐页面

Delphi百度云服务平台获取token

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

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