Разработать приложение, в котором запретить ввод с клавиатуры цифр и знаков препинания «.», «,», «:», «-» в поле Edit. При повторном вводе разрешенных символов выдавать сообщение «Символ уже введен!» На делфи.
Ответы
Ответ дал:
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
Сайт не дает прикреплять архивы
Объяснение:
katyagarnaga:
Спасибо большое!!
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад