ВУЗ:
Составители:
Рубрика:
public
Hour : Integer;
Minute : Integer;
Second : Integer;
Initialize;
function GetSeconds : Integer;
end;
Таким образом, новая версия имеет меньшее количество кода, потому что поля
объявлены как public.
3.3.3 Методы класса
Методы класса - процедуры и функции, которые манипулируют полями и
возвращают результаты, основанные на текущих значениях полей. Важно подчеркнуть,
что методы класса автоматически имеют доступ ко всем полям этого класса. Поля не
надо передавать в качестве параметров процедур или функций.
Пример того, как мог бы выглядеть код функции GetSeconds :
function TTimeClass.GetSeconds( ) : Integer;
begin
GetSeconds :=Second +60*(Minute + 60*Hour);
end;
Обратите внимание, что функция GetSeconds имеет доступ к полям Second,
Minute и Hour. Эта реализация допустима для любой версии класса TTimeClass.
3.3.4 Классы и наследование
Эффективность использования классов заключается в возможности создавать
новые классы как потомки существующих. Каждый
класс - потомок наследует поля и
методы родителя и классов - предков. Можно также объявлять методы в новых классах,
которые отменяют унаследованные. Эта возможность позволяет не замыкаться на
использовании унаследованных методов, которые не соответствуют потребностям
нового класса. Фактически классы - потомки совершенствуют поведение своих
предков, вводя новое, более специализированное, поведение.
Синтаксис. Общий синтаксис
класса - потомка.
Type
TClassName = Class(TParentClassName)
public
<public fields>
<public methods>
protected
<protected fields>
<protected methods>
ptivate
<private fields>
<private methods>
