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

Boolean выражает истинность значения. Он может быть либо TRUE либо FALSE.

1. Создадим новую программу.

2. Создадим новую переменную типа Булен.

после implementation вписываем:

[PHP]var

MyBool:boolean;[/PHP]

3. Кидаем на форму кнопку.

4. По нажатию на кнопку вешаем следующий код:

[PHP]procedure TForm1.Button1Click(Sender: TObject);

begin

  if MyBool=False then showmessage('Спасибо за нажатие!');

  if MyBool=True then showmessage('Хватит нажимать!');

  MyBool:=True;

end;[/PHP]

Что мы получили.

При запуске программы наша переменная (по умолчанию) имеет отрицательный параметр False.

По этому, при первом нажатии на клавишу, нам высветится сообщение "Спасибо за нажатие!", потому-что выполняется условие if MyBool=False then.

После проверки параметра наш код с помощью команды MyBool:=True, присвоит нашей переменной параметр True, и при дальнейшем клике на нашу кнопку, теперь будет высвечиваться сообщение "Хватит наживать", так как будет выполняться условие if MyBool=True then.

 

Также наша переменная может принимать параметр, в зависимости от сравнения других переменных.

Например:

1. Создадим новую программу.

2. Создадим новую переменную типа Булен.

после implementation вписываем:

[PHP]var

MyBool:boolean;[/PHP]

3. Кидаем на форму кнопку и два поля ввода Edit.

4. По нажатию на кнопку вешаем следующий код:

[PHP]procedure TForm1.Button1Click(Sender: TObject);

begin

MyBool:=(Edit1.Text=Edit2.Text);

if MyBool then showmessage('Записи идентичны!');

if MyBool=False then showmessage('Записи отличаются!');

end;[/PHP]

Что мы получили.

Программа сравнит две записи (в Едит1 и Едит2) и если записи одинаковы программа выдаст "Записи идентичны!".

Как она это делает?):

в зависимости от того, что в команде MyBool:=(Edit1.Text=Edit2.Text) переменные в скобках будут равны или нет, переменной MyBool будет присвоен параметр True или False.

Строкой if MyBool then мы проверяем параметр переменной MyBool.

if MyBool then идентично if MyBool=True then.

И если значения равны, программа выдаст нам сообщение "Записи идентичны!".

Если же записи не идентичны, сработает условие if MyBool=False then и программа выдаст сообщение "Записи отличаются!".

 

Такой вот небольшой урок, скажем спасибо Джорджу Булю )