关于键盘‘Back Space’的 Key 值

Question

请教：‘Back Space’的 Key 值是多少？
    我现在需要判断  一个 ‘Edit’框中输入的值 是否为合法值，我用了如下代码：
       
     procedure TInputRecord.DateTimePicker1KeyPress(Sender: TObject;  var Key: Char);
     begin
         if not (Key in ['0'..'9','-'] ) then
         begin
             ShowMessage('请输入数字或正确字符！');
             key := #0;
         end;
     end;
现在的问题是: 如果我输入的内容符合要求的字符,但多输了一位,我要删除最后一位,使用"Back Space" 不起作用,请大家帮忙!

Answer 1

if not (Key in ['0'..'9','-', Chr(vk_Back)]) then
  Key := #0;

Answer 2

IF (Key in ['0'..'9','-']) and (ord(key)<>8) then
    key:=#0;

Answer 3

看：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  showmessage(inttostr(ord(key)));
end;
Back Space 是#8 或 chr(8)