Top Ad unit 728 fff 90

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 и программа выдаст сообщение "Записи отличаются!".

 

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

All Rights Reserved by ProcessPlus 2014 - 2018

Написать нам

Имя

Email *

Сообщение *