X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-01 #1 菜鸟有问题要问：我想通过edit框往数据库写数据，我想判断当edit框是汉字时才可以输入，怎么办啊？
S shijunwu Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-01 #2 判断edit.text的每个字符，如果ASCII码大于0xa0为汉字
X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-01 #3 to shijunwu: 如何判断他的ASCII大于0xa0呢？
B BDFan Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-01 #4 检测是否是汉字 function IsHz(Source: string): Bool; begin result := ((Word(Source[1]) shl 8 + Word(Source[2])) >= $B0A1) and ((Word(Source[1]) shl 8 + Word(Source[2])) <= $D7F9) end;
检测是否是汉字 function IsHz(Source: string): Bool; begin result := ((Word(Source[1]) shl 8 + Word(Source[2])) >= $B0A1) and ((Word(Source[1]) shl 8 + Word(Source[2])) <= $D7F9) end;
