Top Ad unit 728 fff 90

Delphi для начинающих (2 урок)

Бывают случаи когда нам необходимо сделать запароленный вход в нашу программу.

Рассмотрим пример блокировки открывания нашей формы, паролем.

Пароль будет запрашиваться 3 раза.

В случае правильного ввода нам откроется наша форма.

В случае 3 неверных попыток программа закроется.

на создание нашей формы (закладка Events пункт OnCreate) вешаем код:

 

procedure TForm1.FormCreate(Sender: TObject);

var

i:integer; //число наших попыток (целое число).

MyPass:String; //Наш пароль.

valide:boolean; //Верно или нет.

begin

for i:=1 to 3 do //запускаем цикл из 3-х попыток.

begin

//Проверим ввести пароль и выводим сколько попыток осталось.

MyPass:=InputBox('Введите пароль','Осталось попыток'+' '+inttostr(4-i),'');

//Если наш пароль 1234 то прерываем цикл и показываем нашу форму,

//иначе помечаем как не верно.

if MyPass='1234' then begin valide:=true; break; end else valide:=false;

end;

//если не верно, то закрываем все.

if valide=false then application.Terminate; end;

All Rights Reserved by ProcessPlus 2014 - 2017

Написать нам

Имя

Email *

Сообщение *