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 封装的tidhttp get post 请求

Delphi 24位真彩色图形转化为ico文件

Delphi checkbox 透明

Delphi 改变位图图片大小

Delphi 获取打开的记事本中的内容

Delphi中dataset和json的互转

Delphi webbroker 输出图片的问题

Delphi xe(indy10)tidbytes转ansistring的实现

Delphi application.processmessages的作用

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

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