Разработать приложение, в котором запретить ввод с клавиатуры цифр и знаков препинания «.», «,», «:», «-» в поле Edit. При повторном вводе разрешенных символов выдавать сообщение «Символ уже введен!» На делфи.
More Questions From This User See All
Answers & Comments
Ответ:
для события 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
Сайт не дает прикреплять архивы
Объяснение: