Проверка на ввод цифр и букв

[helpkz]

Заранее извиняюсь за ламерский вопрос, но не догоняю я как это сделать.
В общем, ввожу в Едит1 символы. Как сделать проверку: если вводятся цифры то выполняется один код программы, а если буквы, то другой.
Вот как делает чайник:
s1:=Edit1.Text;
if (s1='1') or (s1='2') or (s1='3') or (s1='4') or (s1='5') or (s1='6') or
(s1='7') or (s1='8') or (s1='9')
then begin ... end
Как не писать такой длиный код?
Может надо массив использовать?

[Serge_Bliznykov]

а что, если в Edit1 ввели НЕСКОЛЬКО символов?!

а если нужно проверить только один символ (первый, например)
тогда

  if Length(Edit1.Text)>0 then {строка в Edit1 не пустая}
     if Edit1.Text[1] in ['0'..'9'] 
           then  ... // 1-й символ цифра
           else  ...  // 1-й символ НЕ цифра

[Аватар]

а что, если в Edit1 ввели НЕСКОЛЬКО символов?!

Edit1.MaxLength:=1; не даст больше одного ввести

[helpkz]

Сообщение от Serge_Bliznykov

а что, если в Edit1 ввели НЕСКОЛЬКО символов?!

а если нужно проверить только один символ (первый, например)
тогда

  if Length(Edit1.Text)>0 then {строка в Edit1 не пустая}
     if Edit1.Text[1] in ['0'..'9'] 
           then  ... // 1-й символ цифра
           else  ...  // 1-й символ НЕ цифра

Да, я не учел, что может число разное быть. Двузначное и т.д. Хотя надо.

[helpkz]

Вообще, хотелось бы вот так:
Допустим, введен текст "2 дома, 22 квартиры". Как можно распознать 2 и 22, что они цифры?

Сообщение от helpkz

Вообще, хотелось бы вот так:
Допустим, введен текст "2 дома, 22 квартиры". Как можно распознать 2 и 22, что они цифры?

Может лучше проверять каждый введенный символ? Как лучше выстроить алгоритм?

__________
форум - не чат.
Есть что добавить к своему крайнему сообщению, редактируйте его.
Модератор

[Serge_Bliznykov]

Допустим, введен текст "2 дома, 22 квартиры". Как можно распознать 2 и 22, что они цифры?

ну, допустим...
Нужно просто ПАРСИТЬ строку. Можно это делать ручками, можно привлечь регулярные выражения, смотрите, как Вам проще..
а в какой момент парсить - тоже Вам виднее.
и, кстати, что потом с найденными числами делать, тоже.