Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 123 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

122
Пример:
(Sender as TButton).Caption := 'Ok'
8.1.4.3. Копирование объектов одного класса
Если в программе необходимо создать объект, содержание кото-
рого является копией другого объекта (оба объекта относятся к
одному классу), то необходимо выполнить следующие действия:
создать объекты. Например, МуObject1, МуObject2;
копировать данные объекта МуObject1 в объект МуObject2:
МуObject2.Assign(МуObject1);
Для копирования нельзя использовать оператор присваивания,
так как в этом случае происходит присваивание указателей!
Например, оператор
МуObject2 := МуObject1; присваивается зна-
чение указателя
МуObject1 указателю МуObject2!
8.1.5. Свойства
Доступ к данным класса должен осуществляться только методами
класса. Этот принцип объектно-ориентированной разработки прог-
рамм, называемый
инкапсуляцией, в языке Object Pascal реализован
с помощью
свойств (property).
Свойства определяют доступ к полям класса через методы клас-
са, делая сами поля недоступными. Для стандартных классов
Delphi
это выполняется на 100 %.
Синтаксис описания свойства:
property <имя свойства>
= <тип> read <имя поля или метода
чтения>
write <имя поля или метода чтения>
default <значение по умолчанию>
Пример описания свойства SomeColor:
type
TSomeObject = class(TObject)
function GetColor: TSomeType;
procedure SetColor(NewValue: TSomeType);
property SomeColor: TSomeType read GetColor write SetColor;
end; 
  Пример:
  (Sender as TButton).Caption := 'Ok'
  8.1.4.3. Копирование объектов одного класса
   Если в программе необходимо создать объект, содержание кото-
рого является копией другого объекта (оба объекта относятся к
одному классу), то необходимо выполнить следующие действия:
   ƒ создать объекты. Например, МуObject1, МуObject2;
   ƒ копировать данные объекта МуObject1 в объект МуObject2:
     МуObject2.Assign(МуObject1);
   Для копирования нельзя использовать оператор присваивания,
так как в этом случае происходит присваивание указателей!
   Например, оператор МуObject2 := МуObject1; присваивается зна-
чение указателя МуObject1 указателю МуObject2!
  8.1.5. Свойства
   Доступ к данным класса должен осуществляться только методами
класса. Этот принцип объектно-ориентированной разработки прог-
рамм, называемый инкапсуляцией, в языке Object Pascal реализован
с помощью свойств (property).
   Свойства определяют доступ к полям класса через методы клас-
са, делая сами поля недоступными. Для стандартных классов Delphi
это выполняется на 100 %.
  Синтаксис описания свойства:
   property <имя свойства> = <тип> read <имя поля или метода
чтения>
   write <имя поля или метода чтения>
   default <значение по умолчанию>
   Пример описания свойства SomeColor:
   type
   TSomeObject = class(TObject)
     function GetColor: TSomeType;
     procedure SetColor(NewValue: TSomeType);
     property SomeColor: TSomeType read GetColor write SetColor;
   end;


                               122

Страницы