请教EDIT一个小问题？

Question

在只允许edit控件输入数字值的处理中，＃8是退格的代码，如果想还允许用BACKSPACE键来删除数字，应该用什么代码？本人用DELPHI5！谢谢！

Answer 1

if not(key  in ['0'..'9','.',#8]) then
    key := #0;还可以输入小数点！

Answer 2

edit的onKeyPress事件！如果不想要小数点，删之！if not(key  in ['0'..'9',#8]) then
    key := #0;

Answer 3

if  TryStrToInt(edit1.text,k) then
 begin
 end;

Answer 4

已经用了＃8，可以用DELETE键来删除，但还想用BACKSPACE键来删除，应该还用哪里代码来代表BACKSPACE键？

Answer 5

Backspace 不就是退格键？
#8 不就是Backspace？不就是退格键？楼主到底想干嘛？说清楚点！

Answer 6

edit的onkeypress事件中加于:
begin
   if not (key in ['0'..'9',#8]) then
            key:=0;
end;
或用:
  function isinteger(s:string):boolean;
         begin
        result:=true;
            for i:=1 to length(s) do
                begin
                 if (s[i]<'0' and s[i]>'9') then
                    result:=false;
                  end;
            end;
                     

Answer 7

"Backspace 不就是退格键？
#8 不就是Backspace？不就是退格键？"不是啊，用了＃8  Backspace不起作用，DELETE键就起作用！所以才认为＃8  是DELETE键不是BACKSPACE键啊？