如何判断一个Edit只能输入数字和回车、退格键？

Question

if (Pos(Key,'1234567890.')=0) and (key=vk_return) then 
      begin
        Key := Chr(0);
        ShowMessage('不能输入非数字的字符！');
      end;//if
 这样写不对。

Answer 1

if  not((key in ['0'..'9']) or (key  in[#13, #8])) then
  Key := #0;

Answer 2

if  not((key in ['0'..'9', #13, #8]) ) then
  Key := #0;

Answer 3

同意楼上，不过楼主要注意是在keypress事件中执行
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  not((key in ['0'..'9', #13, #8]) ) then
  Key := #0;
end;