Question

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

Answer 1

Ответ:

В событии 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 (этот сайт не дает архивы прикреплять)

Объяснение:

13a4c4cc40f7b42f33522b4040b8bcb2.txt