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

для события 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

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