проверка содержимого поля Edit

[KaimNotark]

Добрый день, уважаемые форумчане.

Имеются два поля Edit_txt и Edit_numb.
Нужно организовать проверку введенных пользователем данных.
Чтобы в поле Edit_txt был только текст, а
в поле Edit_numb только цифры.

Подскажите простой способ. Может функция есть какая-нибудь.
А то придется городить подпрограмму, которая будет посимвольно
проверять всю строчку в поле. Сдается мне , это не самый удачный вариант.

Спасибо.

[Скандербег]

Применить вместо TEdit TMaskEdit с соответствующими масками-фильтрами.

[Баламут]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8]) then key := #0;
end;

С текстом разберешься?

[KaimNotark]

Попробую. Видимо так:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['А'..'Я', #8]) then key := #0;
end;

[Баламут]

Ну тогда уж лучше так:

   if not (key in ['А'..'я','Ё','ё','A'..'z', #8, #32]) then key := #0;

Да и то, это будет работать в версиях Делфи, не поддерживающих юникод.

[KaimNotark]

С цифрами сделал так:

// E_Cena.Text:='';    только цифры
procedure TF_WindowD1.E_CenaKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8, #16, #13])// если юзер ввел не цифру
  then // тогда
    begin
    key:=#0; // нажатый символ не записывать в поле
    // вывести информационное сообщение
    ShowMessage('Поле "ЦЕНА" должно содержать только цифры.');

    end;
end;

Ежели имеются замечания от более опытных программистов - готов выслушать.

[Stilet]

if not (key in ['0'..'9', #8, #16, #13])// если юзер ввел не цифру

Я бы еще добавил символ разделитель для вещественных (ака копеек)
if not (key in ['0'..'9', #8, #16, #13,DecimalSeparator])// если юзер ввел не цифру или начал вводить копийчины