Делфи.
Разработать приложение, в котором вводить с клавиатуры в поле Edit любые строчные и прописные латинские буквы, а на ввод остальных символов и повторный ввод разрешенных символов ввести запрет
Разработать приложение, в котором вводить с клавиатуры в поле Edit любые строчные и прописные латинские буквы, а на ввод остальных символов и повторный ввод разрешенных символов ввести запрет
More Questions From This User See All
Answers & Comments
Ответ:
В событии 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 (этот сайт не дает архивы прикреплять)
Объяснение: