Question

用Delphi 7编程,要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改.

先谢谢各位高手的指教了.
if (key<>#46) and (key < #48) or (key > #57) then
//如果输入不是数字或小数点（#46代表小数点）
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息
end;
上面的代码可以实现键盘只可以在文本框中输入数字和小数点.但如果输入的数字错误时就不可以同过键盘的Backspace键来修改数字了..
希望你们能指教,该什么改.能使用Backspace键来修改数字..

Answer 1

由于BackSpace的ASCII值是8，所以像以下这样即可
if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) then
//如果输入不是数字或小数点（#46代表小数点）
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息
end;

Answer 2

if not (key in ['0'..'9',#13,#8 ，#46]) then
key := #0;
这样就可以了
好像问了两次了~~