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获取jpg、gif、png等格式图片的大小（高度和宽度）

Delphi 颜色转换成 html 颜色代码

Delphi 字符串查找替换函数

Delphi通过post传递参数给php

Delphi篇之写托盘图标

Delphi更改android亮度

Delphi获取默认浏览器

Delphi 连接 ssl tls 1.2

Delphi 暴力搜索api

Delphi一个基于wininet的http操作小函数

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

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