Прочитав это статью, вы научитесь делать программу, которая дает возможность генерировать буквенные пароли.

Нам потребуется:
Новый проект
Edit
Button
Теперь, когда мы все компоненты кинули на форму, создаем событие OnClick на Button и пишем код:

var
i: integer;
v:string;
begin
for i:=1 to 10 do begin
v:=v+Chr(Random(Ord(‘Z’)-Ord(‘A’)+1)+Ord(‘A’));
Application.ProcessMessages;
end;
Edit1.Text:=v;

И так объясню цепь создания генерации пароля.
Сначала мы объявляем переменные, i — является частью цикла, которая отвечает за кол-во символов. В нашем случае — 10
Далее мы пишем саму функцию генерации, которая будет выводить только буквы.
После этого, готовый пароль мы помещаем в переменную v, и выводим потом это в Edit1.

Добавлено: 05 Сентября 2013 01:27:05 Добавил: Андрей Ковальчук Нравится 0

Добавить