3. Завдання

1. Передбачити можливість додавання термінів у список не тільки при натисканні кнопки Додати, але й при натисканні клавіші Enter.

Підказка. Для компонента ComboBox1 в оброблювач події onKeyPress вставити код: if Key = #13 then ...

2. Додати дві мітки й вивести на них загальну кількість термінів у списку й номер обраного терміна.

Підказка. Для компонента ComboBox1 в оброблювач події Change вставити код, що привласнює заголовку панелі значення ComboBox1.Items.Count, а в оброблювач події Click - код, що привласнює заголовку іншої панелі значення ComboBox1.ItemIndex+1, маючи на увазі, що перший термін має індекс 0, другий - 1 і т.д.

3. Зберігати всі зміни словника при закритті форми.

Підказка. Для компонента Form в оброблювач події CloseQuerry вставити код, що зберігає змінений список у файлі ‘glostext.txt'.

4. Зробити список відсортованим.

Підказка. Властивості Sorted компонента ComboBox1 привласнити значення True.

Контрольні запитання

1. Яка специфіка використання комбінованого списку ComboBox? Яких типів бувають списки?

2. Яке призначення вимикача CheckBox?

3. Як при створенні проекту використовується функція MessageDlg? Які особливості використання цієї функції?

4. Як реалізувати вихід із створеного проекту за допомогою натискання кнопки (компонента на формі)?

5. Яке призначення String list editor? До якого компоненту він застосовується?

6. Що означає властивість компонента OnClick?

7. Як називається розділ програми, який слідує після службового слова Var? Які існують правила описання змінних?

8. Як практично зробити недоступною певну кнопку?

9. Що означає запис if Key = #13 then ...?

10. Як використовується оброблювач події CloseQuerry?

11. Як здійснити сортування списку?

Практична робота № 6. Тема: Розробка проекту "ваша вага"

1. Постановка задачі

Відомо, що оптимальна вага людини визначається як зріст мінус 100.

Постановка задачі: якщо твоя фактична вага менше оптимальної, то ти - худий, якщо більше, то ти - повний. Створити програму, за допомогою якої можна виконати:

Увівши свій ріст і фактичну вагу, і натиснувши кнопку Розрахунок, можна визначити, худий ти або повний і на скільки треба поправитися або схуднути (Рис. 1)

Рис. 1 рис. 2

Пояснення:

Новим у цій роботі є:

• Типи змінних. Цілочисльний і дійсний типи змінних: integer та real.

• Перетворення рядкових даних у числові й числові в рядкові: функції StrToInt; StrToFloat, IntToStr FloatToStr ; Format();

• Обробка виняткових ситуацій. Try – except – end;

• Процедура ShowMessage для виведення повідомлення в окремому вікні.

2. План розробки програми

1. Відкрити новий проект.

2. Розмістити у формі компоненти відповідно до Рис. 2. В Edit1 будемо вводити вагу в кг, а в Edit2 - зріст.

3. Зберегти проект під ім'ям, наприклад, Pr5.pas й Pr5.dpr.

4. Введіть у розділ VAR змінні для збереження значень: фактичної ваги (fakt), оптимальної ваги (Оpt), росту (Rost), різниці між оптимальною вагою й фактичним (Delta).

На початку будемо вважати, що всі дані в нас цілі числа:

VAR fact, Оpt, Rost, Delta: integer;

5. Створіть процедуру, що реагує на клік по кнопці Button1, і заповніть її наступним кодом:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
Button1	Events	OnClick	fact:=StrToInt(Edit1.text); Rost:= StrToInt(Edit2.Text); Opt := Rost - 100; Delta := abs(fact - Opt); if Opt = fact then Label3.caption := 'Ваша вага ідеальна!' else if Opt > fact then Label3.caption := 'Вам треба поправитися на ' + IntToStr(Delta) + ' кг.' еlse Label3.caption := 'Вам треба схуднути на ' + IntToStr(Delta) + ' кг.'