Контрольні запитання
Коли виникає подія OnClick? _________________________________________________________
Коли виникає подія OnMouseMove? __________________________________________________
Коли виникає подія OnMouseLeave? __________________________________________________
На якій вкладці Інспектора об’єктів можна створювати процедури обробки подій? ___________
Як позначається в програмі заголовок форми? _____Form1.Caption_____ Напис на кнопці? ________________________ Колір форми? ____________________________ Текст у текстовому полі? __________________ Напис на мітці? __________________________ Колір напису на мітці? ____________________ Колір текстового поля? ____________________
Лабораторна робота №3. Змінні, числа та рядки
Прізвище, ім’я учня _______________________________________________________ Клас ____
Завдання
Запустіть середовище програмування (ПускВсе программыBorland Delphi 7Delphi 7).
Розмістіть на формі компоненти Label (2 мітки), Button (кнопку) та Edit (2 текстових поля), як показано на мал. 1а
Змініть відповідні властивості об’єктів (це робиться у вікні Інспектора об’єктів), щоб форма набула вигляду, як на мал. 1б
Мал. 1а Мал. 1б
Подумайте. Чим відрізняється властивості форми Caption та Name від властивостей Height, Width, Left, Top? __________________________________________________________________________________________________________________________________________________________________________________________________
Властивості Caption та Name являють собою рядки символів, або просто рядки, що можуть містити будь-які символи. Властивості Height, Width, Top, Left і т.д. являють собою цілі числа. Отже, в Delphi можуть бути щонайменше два типи величин: рядки та цілі числа. Рядки в Delphi називаються string Цілі числа в Delphi називаються integer.
Приклад 1. Припустимо, треба створити програму, яка складає два рядки. Для цього: Створіть процедуру-обробник події OnClick кнопки Button1 (в Інспекторі об’єктів на вкладці Events).
В процедурі TForm1.Button1Click додайте наступний текст (той, що написаний червоним):
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b:string; {червоним написано те, що треба додати в процедуру}
begin
end;
Ми тільки-но додали в процедуру дві змінні a і b, причому ці змінні є рядками, тому що при їх описанні ми використали слово string, яке означає рядок. Про те, що ми додаємо змінні (описуємо змінні), свідчить ключове слово var.
Додайте в процедуру 3 наступні команди (написані червоним):
procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b:string;
begin
a:=Edit1.Text;
b:=Edit2.Text;
ShowMessage(a+b); {червоним написано те, що треба додати в процедуру}
end;
Запустіть програму. Введіть що-небудь у текстові поля. Натисніть кнопку. Що відбувається? __________________
_________________________________________________________________________________________________
Розглянемо докладніше ці три команди.
Перша команда a:=Edit1.Text складається з трьох частин: а, :=, Edit1.Text. Ця команда означає, що змінна а набуде значення, яке зараз міститься у властивості Edit1.Text, тобто після виконання цієї команди у змінну а буде записано значення, яке користувач ввів у перше текстове поле.
Друга команда аналогічна першій: у змінну b записується текст другого текстового поля.
Остання команда ShowMessage(a+b) виводить на екран вікно повідомлення, в якому є рядок a+b і кнопка ОК.
Замість цих трьох команд можна було використати одну:
Створіть у папці Delphi Projects папку «Складання рядків» і збережіть туди програму. Потім закрийте проект, скористувавшись командою FileClose All.
Приклад 2. Припустимо, треба скласти програму, яка складає два цілих числа. Для цього:
Почніть новий проект (FileNewApplication). Розмістіть на формі відповідні компоненти, щоб форма набула наступного вигляду (мал. 2):
Мал.
2
Створіть процедуру-обробник події OnClick кнопки Button1 (в Інспекторі об’єктів на вкладці Events).
В процедурі TForm1.Button1Click додайте наступний текст (той, що написаний червоним):
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
b:integer; {червоним написано те, що треба додати в процедуру}
begin
end;
Ми тільки-но додали в процедуру дві змінні a і b, причому ці змінні є цілими числами, тому що при їх описанні ми використали слово integer, яке означає ціле число. Про те, що ми додаємо змінні (описуємо змінні), свідчить ключове слово var.
Додайте в процедуру 3 наступні команди (написані червоним):
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
b:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
ShowMessage( IntToStr(a+b) ); {червоним написано те, що треба додати в процедуру}
end;
Розглянемо докладніше ці три команди.
Перша команда a:=StrToInt(Edit1.Text); складається з трьох частин: а, :=, StrToInt(Edit1.Text).
Чому не можна написати просто a:=Edit1.Text, як у попередньому завданні? Тому що зараз змінна а типу integer, тобто ціле число, а властивість Edit1.Text типу string, тобто рядок. Числа не можна присвоювати рядкам і навпаки. Тому, щоб можна було здійснити операцію присвоювання, треба рядок Edit1.Text перевести в ціле число за допомогою команди StrToInt.
Друга команда аналогічна першій: у змінну b записується число з другого текстового поля.
Остання команда ShowMessage( IntToStr(a+b) ). Чому не можна було написати просто ShowMessage(a+b), як у попередньому завданні? Тому що команда ShowMessage виводить на екран лише рядки.
Створіть у папці Delphi Projects папку «Складання рядків» і збережіть туди програму. Потім закрийте проект, скористувавшись командою FileClose All.