Шупрута В.В. - Delphi 2005 - Учимся программировать (1080891), страница 26
Текст из файла (страница 26)
Если методы и данные являются открытыми, то, несмотря на то что онизаданы внутри объекта, они доступны и для других частей программы. Характерной является ситуация, когда открытая часть объекта используется для того, чтобыобеспечить контролируемый интерфейс закрытых элементов объекта.В языке Delphi ограничение доступа к полям объекта реализуется припомощи свойств объекта.Свойство (Property) объекта - характеристика объекта, которая определяется полем, сохраняющим значение свойства, и двумя методами, обеспечивающими доступ к полю свойства.
Метод установки значения свойства называется методом записи свойства ( w r i t e ) , а метод получения значениясвойства - методом чтения свойства (read).В описании класса перед именем свойства записывают слово p r o p e r t y(свойство). После имени свойства указывается его тип, затем - имена методов,обеспечивающих доступ к значению свойства. После слова r e a d указываетсяимя метода, обеспечивающего чтение свойства, после слова w r i t e - имяметода, отвечающего за запись свойства. Если не требуется обработка призаписи или чтении свойств, то можно просто указать имя поля после ключевыхслов w r i t e и read.Ниже в листинге 4.5 приведен пример описания класса T P e r s o n a l ,содержащего два свойства: Name и Age.Основные принципы ООПЛ и с т и н г 4.5 •» Пример описания класса, содержащего свойства Name и Age// Объявление класса.TPersonal = classtypeTName = s t r i n g [ 3 0 ] ;TAge • b y t e ;privatefname:TName; // Значение свойства Name - имя сотрудника.fage:TAge;// Значение свойства Age - возраст сотрудника.function GetName:TName;function Getage:TAge;procedure SetAge(new_age:TAge);public// Конструктор - создание нового объекта(экземпляракласса).constructor Create(Name:TName;Age:TAge); 'procedure showinfo; // Это метод класса - показ информации// о сотруднике.// Свойства объектаproperty Name:TName // Свойство только для чтения.read GetName;property Age:TAge// Свойство для чтения и записи.read GetAgewrite SetAge;end ;Казалось бы, внешне применение свойств в программе ничем не отличается от использования полей объекта.
Однако между свойством и полем объектасуществует принципиальное отличие: при присвоении и чтении значения свойства автоматически вызывается процедура (функция), которая выполняет некоторую работу. Например, инструкцияworker.Age:=2 5;на самом деле будет преобразована компилятором в инструкцию вида:worker.SetAge(25);В программе на методы свойства можно возложить некоторые дополнительные задачи.
Например, с помощью метода можно проверить корректностьприсваиваемых свойству значений, установить значения других полей, логически связанных со свойством, вызвать вспомогательную процедуру и т.п.Оформление данных объекта как свойства позволяет ограничить доступ к полям, хранящим значения свойств объекта, например можно разрешить толькочтение. Для того чтобы инструкции программы не могли изменить значениеГЛАВА 4 Т Объектно-ориентированное программированиесвойства, в описании свойства надо указать лишь имя метода чтения. Попыткаприсвоить значение свойству, предназначенному только для чтения, вызываетошибку времени компиляции.В приведенном выше описании класса TPersonal свойство Name доступнотолько для чтения, а свойство Age - для чтения и записи.Установить значение свойства, защищенного от записи, можно во времяинициализации объекта (во время вызова конструктора).Полный текст программы (с описанием конструктора, процедур и функций)приведен в листинге 4.6.Листинг 4.6 т Пример программы, демонстрирующей создание и использование классас описанием свойствunit WinForm;interfaceusesSystem.Drawing, System.Collections, System.ComponentModel,System.Windows.Forms, System.Data;type^WinForm = class (System.
Windows. Forms .Form){$REGION 'Designer Managed Code'}strict privateComponents: System.ComponentModel.Container;Buttonl: System.Windows.Forms.Button;procedure InitializeComponent;procedure Buttonl_Click(sender: System.Object;e: System.EventArgs);{$ENDREGION}strict protectedprocedure Dispose(Disposing: Boolean); override;privateI Private Declarations }publicconstructor Create;end;// Объявление класса TPersonal. .TPersonal = classtypeTName = string[30];TAge = byte;privatefname:TName; // Значение свойства Name - имя сотрудника.fage:TAge;// Значение свойства Age - возраст сотрудника.Основные принципы ООП•function GetName:TName;function GetAge:TAge;procedure SetAge(new_age:TAge);public// Конструктор - создание нового объекта(экземпляра класса).constructor Create(Name:TName;Age:TAge);procedure Showlnfo; // Это метод класса - показ информации// о сотруднике.// Свойства объектаproperty Name:TName // Свойство только для чтения.read GetName;property Age:TAge// Свойство для чтения и записи.read GetAgewrite SetAge;end ;[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]implementation{$AUTOBOX ON}{$REGION 'Windows Form Designer generated code 1 }procedure TWinForm.Dispose(Disposing: Boolean);beginif Disposing thenbeginif Components <> nil thenComponents.Dispose();end;inherited Dispose(Disposing);end;// Конструктор для формы.constructor TWinForm.Create;begininherited Create;InitializeComponent;end ;procedure TWinForm.Buttonl_Click(sender: System.Object;e: System^.EventArgs) ;varworker: TPersonal;begin// Создание нового объекта.worker:=TPersonal.Create('Шупрута Владимир',0);// Вызов метода объекта - вывод информации о сотруднике.ГЛАВА 4 • Объектно-ориентированное программированиеworker.showinfо; // На экране сообщение 'Шупрута Владимир О'.// Изменяем свойства объекта.worker.age:=25;// Вызов метода объекта - вывод информации о сотруднике.worker.showinfо; // На экране сообщение 'Шупрута Владимир 25'.// Уничтожаем объект.•.,worker.free;end;// Конструктор для класса TPersonal.// При вызове создается новый объект с именем Name и возрастом Age.constructor TPersonal.Create(Name:TName;Age:TAge);begininherited Create;fname:=Name;fage:=Age;end;// Метод получения значения свойства Name.function TPersonal.GetName;beginresult:=fname;end;// Метод получения значения свойства Age.function TPersonal.GetAge;beginresult:=fage;end;// Метод записи значения свойства Age.procedure TPersonal.SetAge(new_age:TAge);begin// Пример обработки значения на запись.// Если значение, присваиваемое свойству, <20, то// свойство не изменит своего значения.if new_age<20then exitelse fage:=new_age;end;// Метод класса TPersonal - процедура показа данных о сотруднике.procedure TPersonal.Showinfо;beginmessagebox.Show(Name+' '+Age.Tostring);end;end.Основные принципы ООП•НаследованиеКонцепция объектно-ориентированного программирования предполагаетвозможность определять новые классы посредством добавления полей,свойств и методов к уже существующим классам.
Такой механизм полученияновых классов называется порождением. При этом новый, порожденныйкласс (называемый потомком) наследует свойства и методы своего базового,родительского класса.Итак наследование (Inheritance) - это процесс, посредством которого одинобъект может приобретать свойства другого.
Точнее, объект может наследовать основные свойства другого объекта и добавлять к ним черты,характерные только для него. Наследование является важным, поскольку онопозволяет поддерживать концепцию иерархии классов. Применение иерархииклассов делает управляемыми большие потоки информации. Например,представим описание жилого дома.
Дом - это часть общего класса, называемого строением. С другой стороны, строение - это часть более общегокласса - конструкции, являющейся частью еще более общего класса объектов,который можно назвать созданием рук человека. В каждом случае порожденный класс наследует все связанные с родителем качества и добавляет к нимсвои собственные, определяющие, характеристики. Без использования иерархии классов для каждого объекта пришлось бы задать все характеристики,которые бы исчерпывающе его определяли. Однако при использованиинаследования можно описать объект путем определения того общего класса(или классов), к которому он относится, с теми специальными чертами, которые делают объект уникальным.В объявлении класса-потомка указывается класс родителя.Например, класс TEmployee (конкретный сотрудник компании) можетбыть порожден от рассмотренного выше класса TPersonal путем добавленияполя FDepartment (отдел). Объявление класса TEmployee в этом случае можетвыглядеть так, как показано в листинге 4.7.Листинг 4.7 т Объявление класса-потомка TEmployeeTEmployee = class(TPersonal)// Класс TEmployee создан на основеTPersonal.privateFDepartment:byte; // Номер отдела сотрудника.function.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
