请教两个字符串的问题! 1.如何除去一个字符串中的所有空格?2.我在TreeView中重命名节点时,希望屏蔽掉除数字、字母、汉字外的其他字符,能做到吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1. http://community.csdn.net/Expert/topic/5120/5120342.xml?temp=.84730172. 判断新的名字每一个字符是不是数字或字母或汉字其中一个,参考一下StrUtils.pas单元。解决就不麻烦了。 使用KeyPress事件判断输入的key in ['a'..'z','A'..'Z','0'..'9'] 即可如果不是的话则赋值 Key:=#0 在keypress中加代码吧if not(key in ['0'..'9','a'..'z','A'..'Z',chr(8)]) and (ord(Key)<=127) thenbegin beep; key:=chr(0);end;汉字的ascii编码都大于127 如何判断两个接口是否同一个接口 小数点后去四位 如何针对整数型字段做这样的过滤 这样的表能在数据库中设计出来吗? WEB应用程序开发用什么语言好?散分了! 请教关于函数和Application属性问题 动态创建 如何将任何一个文件打开让它显示16进置代码! Win7 64位下Delphi7 TPageControl无法自绘,求解决 小弟是初学者,希望大家能答复我的问题 Ehlib3的DEMOS里Dbgrideh 是如何实现合并单元格的? 请教!!用udp传输图片问题???
2. 判断新的名字每一个字符是不是数字或字母或汉字其中一个,参考一下StrUtils.pas单元。
解决就不麻烦了。
如果不是的话则赋值 Key:=#0
if not(key in ['0'..'9','a'..'z','A'..'Z',chr(8)]) and (ord(Key)<=127) then
begin
beep;
key:=chr(0);
end;
汉字的ascii编码都大于127