sStr:=edit1.text;<br> if (ord(sStr[10])>=$a0) then<br> begin<br> ShowMessage('是汉字');<br> edit1.text:=copy(sstr,1,9);<br> end<br> else<br> edit1.text:=copy(sstr,1,10);<br>你改下试试