Делфи. Разработать приложение, в котором вводить с клавиатуры в поле Edit любые строчные и прописные латинские буквы, а на ввод остальных символов и повторный ввод разрешенных символов ввести запрет

rodinaolga rodinaolga    1   01.03.2021 00:56    0

Ответы
MaxHelpMelol MaxHelpMelol  31.03.2021 00:58

В событии Edit1KeyPress элемента Edit1 пропиши указанный код:

//

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

var islegal: bool;

begin

 if Key in ['A'..'Z']+['a'..'z'] then islegal := true;

 if pos(Key, Edit1.Text) <> 0 then islegal := false;

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

end;

//

или готовый проект во вложении...

только переименуй файл proj1.txt в proj1.zip (этот сайт не дает архивы прикреплять)

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы