Ввод - сделать так, чтобы в Edit можно было вводить только цифры, или на оборот, только буквы

[BastAngel]

Как сделать что бы в Edit можно было вводить только цифры, или на оборот, только буквы?

[Hacker19_90]

OnKeyPress или OnKeyDown обрабатывать пробовали?

[BastAngel]

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

OnKeyPress или OnKeyDown обрабатывать пробовали?

поподробней можно?

[Arigato]

На OnKeyPress:

if (Key > #31) and not (Key in ['0'..'9']) then Key := #0;

[Человек_Борща]

в старших версиях delphi(> 7) у всех TEdit есть свойство NumbersOnly

[Dozent]

я так понимаю у вас тут пол группы сидит на сайте) курсач пишите?))

вот вам обработка из моих программ времён учёбы)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',DecimalSeparator,#8]) // символы которые пропускаются
    or  (length(Edit1.Text)>6) then
  begin
      Key := #0; // запрещенный символ заменяем нулем
      MessageBeep (MB_OK); // биб в спикир
  end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin

if ((Ord(key)>=48) and (Ord(key)<=57)) or ((Ord(key)>=96) and (Ord(key)<=105))
 or (length(Edit2.Text)>20)
then
  begin
      Key := #0; // запрещенный символ заменяем нулем
      MessageBeep (MB_OK);
  end;

end;

[BastAngel]

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

я так понимаю у вас тут пол группы сидит на сайте) курсач пишите?))

вот вам обработка из моих программ времён учёбы)

Спасибо всем)))

Да нет не курсач, все на много хуже, диплом(

[Arigato]

Dozent

В 1-м примере не пропускаются стрелочки. Можно еще так сделать:

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

Но остается возможность вставить лишние символы через буфер обмена, так что нужна дополнительная проверка, ее можно после окончания ввода сделать.

Во 2-м примере совсем нет смысла функцию Ord использовать, можно сравнивать сами символы, как-то так: if (key >= #48) and (key <= #57) ...