Delphi. Учимся на примерах

  {проверяем вариант первого игрока и ставим соответствующий знак}

  if StrToInt(ch1.Text) > num then znak1.Caption:= '>';

  if StrToInt(ch1.Text) < num then znak1.Caption:= '<';

  if StrToInt(ch1.Text) = num then begin

   znak1.Caption:= '=';

   x.Caption:= IntToStr(num);

   ShowMessage('Вы победили!' + #13#10 + 'Число угадано за ' + IntToStr(kolvo) + ' попытки');

   Exit;

  end;

  //если вариант первого игрока больше загаданного числа

  if znak1.Caption = '>' then begin

   maximum[kolvo]:= StrToInt(ch1.Text); {добавляем в массив наибольших чисел вариант первого игрока}

   max;

   //ищем наибольшее число

  end;

  //если вариант первого игрока меньше загаданного числа

  if znak1.Caption = '<' then begin

   minimum[kolvo]:= StrToInt(ch1.Text); {добавляем число в массив наименьших чисел, выданных первым игроком}

   min;//ищем наименьшее число

   end;

   //после всех расчетов, компьютер выдает свой вариант

   ch2.Text:= IntToStr(Random(big– small)+ small);

  end;

  //проверяем вариант компьютера и ставим соответствующий знак

  if StrToInt(ch2.Text) > num then znak2.Caption:= '>';

  if StrToInt(ch2.Text) < num then znak2.Caption:= '<';

  if StrToInt(ch2.Text) = num then begin znak2.Caption:= '=' ;

  x.Caption:= IntToStr(num);

  ShowMessage('Вы проиграли!' + #13#10 + 'В этот раз победил компьютер!' + #13#10 + ' Число угадано за ' + IntToStr(kolvo) + ' попытки');

 end;

end;

end.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter09.

Глава 10 Вход в систему

Постановка задачи

Разработать программу, которая осуществляет вход в систему. Интерфейс входа в систему сначала скрывает все от пользователя, а затем просит ввести пароль. Если пароль верный, то разблокируем систему и выходим из программы. В противном случае, продолжаем требовать ввод пароля.

Разработка формы

Создайте новый проект Delphi и измените свойства формы согласно табл. 10.1.

Таблица 10.1. Свойства формы программы входа в систему

Свойство	Значение	Пояснение
Caption		Очистить заголовок
Align	alCustom	Запрет на перемещение окна
ВorderStyle	bsNone	Убираем границу и заголовок окна
FormStyle	fsStayOnTop	Окно программы будет всегда расположено поверх других окон
Position	poDesktopCenter
Height	130	Высота
Width	130	Ширина

Разместите на форме компонент Label категории Standard и измените его свойства согласно табл. 10.2.

Таблица 10.2. Свойства компонента

Свойство	Значение	Пояснение
Caption	Logon	Надпись метки
Font.Color	clNavy	Цвет текста — темно-синий
Font.Size	20	Размер шрифта
Font.Style	[fsBold]	Начертание шрифта — полужирное
Left	16	Отступ слева
Тор	0	Отступ сверху

Разместите под меткой компонент Edit категории Standard и присвойте его свойству Name значение pass. Для того чтобы скрыть ввод текста (то есть, вводимый пользователем пароль), следует указать в свойстве PasswordChar символ, который будет отображаться вместо вводимого текста. Можно указать здесь символ "*" или, например, знак доллара "$".