D DelphiKey Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-17 #3 可以用两种字符串类型定义两个字符串,然后判断其长度 Var S1:String;//1汉字长度=2 ; ; S2:WideString;//1汉字长度=1 Begin S1:=Edit1.Text; S2:=S1; if Length(S1)<>Length(S2) then ShowMessage('包含汉字'); end;
可以用两种字符串类型定义两个字符串,然后判断其长度 Var S1:String;//1汉字长度=2 ; ; S2:WideString;//1汉字长度=1 Begin S1:=Edit1.Text; S2:=S1; if Length(S1)<>Length(S2) then ShowMessage('包含汉字'); end;
E enteraj Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-17 #4 to DelphiKey ; 对了问题就在Widestring概念。