Задание в делфи сделать.

[Alex667]

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
unit Unit49;

interface
uses Sysutils, Dialogs, Classes
type
TPerson=class
private
FName: string://имя
FAge: integer://возраст
protecteol
procedure
SetName(Name: string);// задать имя
SetAge(Age: integer);//задать возраст

implementation
procedure
TPerson.GetName: string;//получить имя
TPerson.GetAge: integer;//получить возраст
begin
FName:=string;
FAge:=integer;
end.
Задание №1. TPerson.
1. Начать новый проект. Сохранить его.
2. Создать новый модуль (для TurboDelphi: меню File, пункт New, подпункт Unit – Delphi for Win32) , сохранить его под именем uPeoples в ту же папку, что и текущий проект.
3. Создать класс «человек» (TPerson), имеющий поля FName («имя») строкового типа и FAge («возраст») целочисленного типа.
4. Написать код (например, в обработчике события нажатия кнопки), демонстрирующий работу с объектом класса TPerson: создание, задание полей, извлечение данных из полей, уничтожение объекта.
5. Добавить в класс TPerson метод SetName с действием «задать имя», метод SetAge с действием «задать возраст», а также методы GetName: string с действием «получить имя», и GetAge: Integer с действием «получить возраст».
6. Написать код (отдельно от предыдущего демонстрационного кода), показывающий работу новых возможностей объекта класса TPerson: создание, задание полей, извлечение данных из полей, уничтожение объекта.
7. Добавить в класс TPerson конструктор (посредством указания специального метода (например, с именем Create), только вместо ключевого слова procedure или function в объявлении конструктора следует использовать ключевое слово constructor). Конструктор должен инициализировать все поля некоторыми значениями по умолчанию. Примечание: в своих проектах следует выбирать такие значения по умолчанию, чтобы либо объект впоследствии был максимального «настроенным» - пригодным сразу к работе, либо явно демонстрировал необходимость заполнения ряда своих полей, но был тем не менее работоспособным.
8. Добавить в класс TPerson деструктор (посредством указания специального метода (например, с именем Destory), только вместо ключевого слова procedure или function в объявлении деструктора следует использовать ключевое слово destructor). Деструктор, ввиду простоты класса, оставить пустым.
9. Написать код (отдельно от предыдущего демонстрационного кода), показывающий работу объекта класса TPerson: создание, задание полей, извлечение данных из полей, уничтожение объекта.

 
Задание №2. TStudent.
1. В том же модуле uPeoples создать потомка класса TPerson – класс TStudent посредством использования синтаксической конструкции вида type TStudent = class(TPerson) end;.
2. Написать код (отдельно от предыдущего демонстрационного кода), показывающий, что в данной форме объявления класса TStudent его работа ничем не отличается от работы класса TPerson.
3. Добавить в класс TStudent поля целочисленного типа FLevel («курс»), TRating («рейтинг») и соответствующие методы для работы с ними.
4. Добавить в класс TStudent свойства для всех полей (в том числе и для полей предка), с помощью конструкции вида property Level: Integer read GetLevel write SetLevel;.
5. Сделать вывод о возможном назначении свойств.
6. Написать код (отдельно от предыдущего демонстрационного кода), показывающий работу класса TStudent. Указание: в демонстрационном коде обращение к полям не использовать, только свойства.

[digitalis]

Задание поняли. Разрешите исполнять ?