W waterflow Unregistered / Unconfirmed GUEST, unregistred user! 1999-12-16 #1 如何对输入信息进行约束。 例如：在某个edit中只能输入诸如数字，(),- 的字符；有什么简单方法； 千万别错过拿分的好机会。
W www Unregistered / Unconfirmed GUEST, unregistred user! 1999-12-16 #2 Easy! 在edit的onkeypress事件中 begin if key in ['0'..'9','('',')','-'] then ...... end;
W www Unregistered / Unconfirmed GUEST, unregistred user! 1999-12-16 #3 忘了加上 if key in ['0'..'9','('',')','-'] then ...... else key:=#0;
K kangxy Unregistered / Unconfirmed GUEST, unregistred user! 1999-12-16 #4 可以使用TMaskEdit,也可使用TEdit.OnChange中处理. 或自己写一个控件.
阿 阿蒙 Unregistered / Unconfirmed GUEST, unregistred user! 1999-12-16 #5 用一个判断语句 例如 把可以输入的字符放在一个数组中 var input ；array[0。。10]of string=[0，1，2，3，4，5，6，7，8，9]； s：array[50] of string； i：integer； j：integer； 。 。 i;=0; j：=0； s；=edit1。text； length：=length（edit1。text）； for j=0 to lengthdo begin reapet begin if s[j]<>input then i:=i+1; end; until i=10; end； showmessage("请输入数字“）； 仅供参考 我没有编译过
用一个判断语句 例如 把可以输入的字符放在一个数组中 var input ；array[0。。10]of string=[0，1，2，3，4，5，6，7，8，9]； s：array[50] of string； i：integer； j：integer； 。 。 i;=0; j：=0； s；=edit1。text； length：=length（edit1。text）； for j=0 to lengthdo begin reapet begin if s[j]<>input then i:=i+1; end; until i=10; end； showmessage("请输入数字“）； 仅供参考 我没有编译过
W waterflow Unregistered / Unconfirmed GUEST, unregistred user! 1999-12-17 #9 谢了各位： 我的本意是想看看大伙有无好的解决方法，既然大家都这么看，看来无好方法。 这种方法有点累
