Началото на обектно-ориентираното програмиране в Делфи (уроци 4-7)

Урок 4: Създаване на разделите на езика на Delphi.

(. Фигура 1) за създаване на няколко раздела за единична форма, изпълняват следните стъпки:

В раздела компонент палитра изберете Win32;
Изберете компонент PageControl;
Създаване обект на форма pageControl желания размер;
Щракнете с десния бутон контекстното меню независим (Фигура 2).
изберете New Page;

След това се появява един допълнителен раздел. За да се създаде няколко раздела стр 5-6 за извършване на няколко пъти.

За да промените името на раздела, трябва:

Или просто смяна на Надпис собственост на новообразуваните разделите;

Или (ако не веднага промяна на етикета), за да изберете желания раздел, като щракнете върху левия бутон на мишката върху своите раздели и на същия бутон на мишката, за да доведе до свойствата на този раздел, като кликнете върху него в организма.

Премахнете ненужните раздел можете да изтривате бутон клавиатура, след като го изберете, като щракнете с левия бутон на мишката.

По този начин, с помощта на разделите на една форма, можете да създадете един проект, който се състои от няколко несвързани задачи.

Задачи за самостоятелна работа:

Урок 5-6: В "променливи" на езика на Delphi.

1. Създаване да образуват чрез PageControl компонент (Win32 раздели) за да се образува три раздела.

2. В прозореца на инспектор в Надпис имота, въведете име за променливите на формуляра;

3. В прозореца на инспектор в Надпис имота, въведете имената на разделите: числови, низ, логически.

4. Цифров раздела пост:

а) за въвеждане на номера, две текстови полета Edit1 iEdit2;
б) за да се покажат резултатите надписи Label1, LABEL2? label3;
в) да се покаже обяснителни текстове пет надписи Label4 - Label8;
ж) да се създаде събитие манипулатор бутон за Button1;
д) да ги питам от следните свойства:

Edit1, Edit2 - Надпис - чист;
Label1, LABEL2, Label3 - Надпис - чист;
Label4 - надпис - А;
Label5 - надпис - В;
Label6 - Надпис - Цялата страна;
Label7 - Надпис - Private;
Label8 - Надпис - двойна точност.
Button1 - надпис - точка А до точка Б.

За knopkiButton1 да пишат код:

5. На поста раздела String:

а) за въвеждане на номера, две текстови полета Edit3 iEdit4;
б) за извеждане на резултат Label9 надпис;
в) да се покаже обяснителни текстове три надписи Label10 - Label12;
ж) да се създаде събитие манипулатор бутон за BUTTON2;
д) да ги питам от следните свойства:

Edit3, Edit4 - Надпис - чист;
Label9 - Надпис - чист;
Label10 - с надписи - chrS;
Label7- Надпис - ДСС;
Label8 - надписи - chrS + ДСС;
BUTTON2 - Надпис - Показване на резултата.

За knopkiButton2 да пишат код:

процедура TForm1.Button2Click (Sender: TObject);
започвам
chrS: = PChar (Edit3.Text);
ДСС: = Edit4.Text;
Label9.Caption: = chrS + ДСС;
приключи;

6. На поста раздела Logic:

а) за извеждане на логически изрази две надписи Label13, Label14;
б) за извеждане на резултат Label15 надпис;
в) да се покаже обяснителни текстове три надписи Label16 - Label18;
ж) да се създаде събитие манипулатор бутон за Button3;
д) да ги питам от следните свойства:

Label13 - надпис - 5> 3;
Label14 - надпис - 2 * 2 = 4;
Label15 - Надпис - чист;
Label16 - надпис - А;
Label17 -Caption - В;
Label8 - Надпис - AB;
Button3 - Надпис - Идентифициране AB.

За бутон Button3 да записва кода на програмата:

процедура TForm1.Button3Click (Sender: TObject);
започвам
L1: 5 => 3;
L2: = 2 * 2 = 5;
L3: = L1 и L2;
Label15.Caption: = BoolToStr (L3, True);
приключи;

7. Стартиране на изпълнението, проверете дали тя работи.

Урок 7: Използване на разклоняване структури. Прилагане на обекта. процедура Val.

Задача: Създаване на проект за превод на степента на мярката на ъгъла в радиани.

В резултат на проекта е да се използват видове форма:

1. Създаване на визуален интерфейс на приложението, това ще поставят следните компоненти на формата (виж фигура 6.):

Label1 и LABEL2 за показване обяснения
Edit1 да влезе степента на мярката на ъгъла,
Edit2 за показване на Радиан мярка на ъгъла,
Button1 за започване на процедурите за трансфер.

Имоти Enabled (наличност) Edit2 елемент е настроен на False, така че да е невъзможно да се влезе в тази област всяка информация, тъй като този елемент се използва за извеждане на резултата.

2. Създаване на програмен код.

Нека да създадем манипулатор събитие за BUTTON1.

Ние трябва да се вземат информацията, въведена в Edit1 компонент за преобразуване в съответствие с математическата формула:

Радиан мярка за мярка ъгъл степен на ъгъл = * Pi / 180, и показва резултата от компонент Edit2.

При изпълнението на тези дейности неизбежно ще имате проблем конвертиране на формати за данни, както Edit1 въведен низ променлива, и ние трябва да го използва за изчисляване на броя. За да се превърне в низа за реално число Вал използвате процедурата:

Къде S - низ представителството на броя, V - параметър, в който процедурата съхранява преобразувания низ като цяло или реално число, Code - ако низ S не е представяне на числото (съдържа външни знака), а след това на Кодекса параметър ще запази неправилен брой символи.

Така че, ще се въведе следната последователност от твърдения в бутона за боравене със събития OnClick Button1:

3. Операторите обясняват събитието манипулатор:

Първият преобразува операторът въведена в низ ъгъл формат градуса за измерване на реално число.

Ако грешката е нула, броят на грешки при въвеждането не са налични. В този случай, ние получаваме Радиан мярка на ъгъла, функция FloatToStr преобразува в реално число в низ. В противен случай използвайте метода на обект за кандидатстване за да се покаже диалоговия прозорец на грешката и да се възстанови стойността нула в компонентите и Edit1 Edit2.

Application.MessageBox сайтове (Грешка въвеждане степен мярка ъгъл "" грешка ", MB_OK); Тя позволява на изхода на екрана в нов прозорец, името на което е съобщение "Грешка" в "грешка при въвеждането на степента на мярката на ъгъла. MB_OK опция показва, че на прозореца има бутон "ОК".

Задачи за независим решение:

Създаване на проект, който произвежда обратната трансформация - на радиан мярка на ъгъла в степен, резултатът се закръгля до числа.
Създаване на проект, който определя корените на квадратно уравнение върху своите коефициенти.