Delphi

type
   TDigit = set of '0'..'9';
var
  digits : TDigit;

begin
   digits := ['0'..'9'];
   if key in digits then someting;
end;