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

UptoLike

113
8. Объектно-ориентированное
программирование на языке Object
Pascal
8.1. Классы и объекты
8.1.1. Структура класса
Синтаксис описания класса:
<имя класса> = class(<имя класса-родителя>)
private {закрытый }
{Данные и методы, доступные только в данном классе}
protected {защищенный}
{Данные и методы, доступные только в наследуемых классах}
public {открытый}
{Данные и методы, доступные всем}
published {публикуемый}
{Данные и методы, доступные в Инспекторе объектов Delphi }
end;
Имя класса в
Object Pascal принято начинать с буквы Т, а имя
данных (их называют полями) – с буквы F.
Базовый класс в
Object Pascal TObject. Этот абстрактный класс,
объявленный в модуле
System, является родителем всех других
классов и содержит только спецификации методов, включая базовый
конструктор и деструктор.
Если в объявлении класса не указан класс-родитель, то объявляе-
мый класс будет считаться наследником класса
TObject:
type
TMyClass = Class { эквивалентно TMyClass = Class(TObject) }
. . .
end;
  8. Объектно-ориентированное
  программирование на языке Object
  Pascal
  8.1. Классы и объекты
  8.1.1. Структура класса

  Синтаксис описания класса:
  <имя класса> = class(<имя класса-родителя>)
  private {закрытый }
       {Данные и методы, доступные только в данном классе}
  protected {защищенный}
       {Данные и методы, доступные только в наследуемых классах}
  public {открытый}
       {Данные и методы, доступные всем}
  published {публикуемый}
       {Данные и методы, доступные в Инспекторе объектов Delphi }
  end;


   Имя класса в Object Pascal принято начинать с буквы Т, а имя
данных (их называют полями) – с буквы F.
   Базовый класс в Object Pascal – TObject. Этот абстрактный класс,
объявленный в модуле System, является родителем всех других
классов и содержит только спецификации методов, включая базовый
конструктор и деструктор.
   Если в объявлении класса не указан класс-родитель, то объявляе-
мый класс будет считаться наследником класса TObject:

  type
  TMyClass = Class { эквивалентно TMyClass = Class(TObject) }
  ...
  end;



                               113