Question

Разработать приложение, в котором запретить ввод с клавиатуры цифр и знаков препинания «.», «,», «:», «-» в поле Edit. При повторном вводе разрешенных символов выдавать сообщение «Символ уже введен!» На делфи.

Answer 1

Ответ:

для события Edit1KeyPress прописать код:

//------------------------

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

var islegal: bool;

begin

 Label1.Caption := '';

 if Key in ['0'..'9']+['.']+[',']+[':']+['-'] then islegal := false;

 if pos(Key, Edit1.Text) <> 0 then

 begin

   Label1.Caption := 'Символ уже введен!';

   islegal := false;

 end;

 if not(islegal) then Key:=#0;

end;

//------------------------

Вложил готовый проект, только нужно .txt переименовать в .zip

Сайт не дает прикреплять архивы

Объяснение: