delphi 判断字符串是否包含汉字

procedure TForm1.Button1Click(Sender: TObject);

var

str : string;

pStr : PWideChar;

isHZ : Boolean;

i , s, m : Integer;

byteArr : TBytes;

begin

str := Trim('23432432223432423');

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;

推荐分享