Delphi: заметки программиста. Часть 1

Листинг 4

program Password; 
  
uses 
  Forms, 
  Dialogs,  // В этом модуле определена функция InputQuery  
  Unit1 in 'Unit1.pas' {MainForm}; 
  
{$R *.RES} 
var 
  Passwrd: String; 
begin 
  // Запрашиваем пароль: 
  if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd)    then 
  // Проверяем его: 
  if Passwrd = 'Delphi' then 
  begin  // Все в порядке, пароль верен 
    Application.CreateForm(TMainForm, MainForm); 
    Application.Run; 
  end else 
    ShowMessage('Пароль не верен!'); 
end. 

возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует