Question

关于delphi的edit1的问题,就是不让用户输入这样的字符--(100分!)

------我用delphi做了个计算器,计算器有个edit1,我已经搞定了edit1内只允许有一个小数点,负号只能是第一位,就差这个问题了,,(edit只能输入8位) ------这个问题是,如果用户输入了0.000000,那么程序会出错,就是edit1内必须要有个1到9的数字,不得出现0.0000或者0.00之类的, ------就比如要有0.001或0.022之类的数字,用数学的语言就是,必须要有一位以上的"有效数字" ------给出你的修改方法,要有代码. 我的描述还有什么不详细的地方大家再指出把,,谢谢啦

Answer 1

楼上回答的嘛? 我给出限制 只允许输入一个小数点, 只允许输入一个负号并且负号在最前面, 而且限制只能输入8个字符的程序

Answer 2

try StrToFloat((Sender as TEdit).Text); except (Sender as TEdit).Text:=Copy((Sender as TEdit).Text,1, Length((Sender as TEdit).Text)-1); (Sender as TEdit).SelStart:=Length((Sender as TEdit).Text); end;