考大家一个简单问题(送分)(0分)

  • 主题发起人 主题发起人 enteraj
  • 开始时间 开始时间
E

enteraj

Unregistered / Unconfirmed
GUEST, unregistred user!
如何判断一字符串中有汉字。
 
是不难,如果ord>128就有可能是汉字了。
 
可以用两种字符串类型定义两个字符串,然后判断其长度
Var S1:String;//1汉字长度=2
; ; S2:WideString;//1汉字长度=1
Begin
S1:=Edit1.Text;
S2:=S1;
if Length(S1)<>Length(S2) then ShowMessage('包含汉字');
end;
 
to DelphiKey
; 对了问题就在Widestring概念。
 
后退
顶部