！！如何让文本框输入时只能输入数字（0-9）和+、-符号！！拜托各位大神

！！如何让文本框输入时只能输入数字（0-9）和+、-符号！！拜托各位大神

这些方法是可以只允许输入（0-9）和+、-，这样我们可以输入0+9等，但是我们有用的是要求只能输入正常的数值，这样判断不是比较麻烦是不是只能这么写，isnum(str:string):boolean; //自定义函数，判断一个string是不是数值，内容省略procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var str:string; begin if not(key in['0'..'9'，'-','+',#8,'.']）then key:=#0 else begin str:=Edit1.Text+key; if isnum(str) exit else key:=#0; end; MessageBeep(1); end;

在我的机器上怎么编译不通过呀提示非法字符在输入文件

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息