Delphi检测字符串中是否包含汉字
来源:互联网 发布:西安千度网络传销 编辑:程序博客网 时间:2024/05/22 05:24
procedure TMainForm.Button1Click( Sender : TObject );
var
str : string;
pStr : PWideChar;
isHZ : Boolean;
i , s, m : Integer;
byteArr : TBytes;
begin
str := Trim( EditStr.Text );
pStr := PWideChar( str );
byteArr := WideBytesOf(str);
while pStr^ <> #0 do
begin
// 汉字
case pStr^ of
Char($4E00) .. Char($9FA5) :
begin
isHZ := True;
Break;
end ;
// 全角中文符号
Char($FF00) .. Char($FFEF) :
begin
isHZ := True;
Break;
end ;
// 半角中文符号
Char($3000) .. Char($303F) :
begin
isHZ := True;
Break;
end ;
else
EditChar.Text := EditChar.Text + pStr^;
end;
Inc( pStr );
end;
//
if isHZ then
Vcl.Dialogs.MessageDlg('包含汉字',mtInformation,[mbOK],0)
else
Vcl.Dialogs.MessageDlg('没有包含汉字!',mtInformation,[mbOK],0);
end;
var
str : string;
pStr : PWideChar;
isHZ : Boolean;
i , s, m : Integer;
byteArr : TBytes;
begin
str := Trim( EditStr.Text );
pStr := PWideChar( str );
byteArr := WideBytesOf(str);
while pStr^ <> #0 do
begin
// 汉字
case pStr^ of
Char($4E00) .. Char($9FA5) :
begin
isHZ := True;
Break;
end ;
// 全角中文符号
Char($FF00) .. Char($FFEF) :
begin
isHZ := True;
Break;
end ;
// 半角中文符号
Char($3000) .. Char($303F) :
begin
isHZ := True;
Break;
end ;
else
EditChar.Text := EditChar.Text + pStr^;
end;
Inc( pStr );
end;
//
if isHZ then
Vcl.Dialogs.MessageDlg('包含汉字',mtInformation,[mbOK],0)
else
Vcl.Dialogs.MessageDlg('没有包含汉字!',mtInformation,[mbOK],0);
end;
阅读全文
0 0
- Delphi检测字符串中是否包含汉字
- 检测字符串中是否包含汉字
- Delphi判断字符串中是否包含汉字,并返回汉字位置
- 检测unicode字符中是否包含汉字
- 判断字符串中是否包含汉字
- VB6判断字符串中是否包含汉字
- 判断字符串中是否包含汉字
- java判断字符串中是否包含汉字
- 如何判断字符串中是否包含汉字
- Java判断字符串中是否包含汉字
- js判断字符串中是否包含汉字
- java判断字符串中是否包含汉字
- java 判断字符串中是否包含汉字
- js判断字符串中是否包含汉字
- IfHanZi --判断字符串中是否包含汉字
- java 判断字符串中是否包含汉字
- java 判断字符串中是否包含汉字
- iOS 检测字符串中是否包含表情符号
- matplotlib 画图
- 2017.9.6 音量调节 思考记录
- JavaEE开发之Spring中的条件注解、组合注解与元注解
- git常用命令
- ruby中的整数、浮点数、字符串之间的相互转换
- Delphi检测字符串中是否包含汉字
- struts2__result元素,各种情况下的转发与重定向
- SQL Server 2012 在sp_executesql 中生成的临时表的可见性
- 输入框智能提示(二)
- element.src.match("bulbon")什么作用?
- UVA 10054
- Android wifi源码分析(一) Wifi启动流程
- C++学习之路(11)---什么是引用?
- 单击 双击冲突解决