W Cat - Описание языка PascalABC.NET

Говорят, что методы Print завязаны в цепочку виртуальности . Чтобы разорвать ее (не вызывать методы в подклассах виртуально) используется ключевое слово reintroduce:

type

DerivedTwice1 = class(Derived)

public

procedurePrint; reintroduce;

begin

writeln('DerivedTwice1');

end;

end;

Если мы хотим начать новую цепочку виртуальности, то следует использовать и virtualи reintroduce:

type

DerivedTwice2 = class(Derived)

public

procedurePrint; virtual; reintroduce;

begin

writeln('DerivedTwice2');

end;

end;

Если переопределить виртуальную функцию невиртуальной без ключевого слова reintroduce, то ошибки не произойдет - будет выведено лишь предупреждение о том, что цепочка виртуальности нарушена. Таким образом, ключевое слово reintroduceв этой ситуации лишь подавляет вывод предупреждения.

При переопределении виртуального метода в подклассе его уровень доступа должен быть не ниже, чем в базовом классе. Например, publicвиртуальный метод не может быть переопределен в подклассе private-методом.

Методы, предназначенные для переопределения в подклассах, объявляются с ключевым словом abstractи называются абстрактными. Данные методы являются виртуальными, но ключевое слово virtualиспользовать не нужно. Например:

type

Shape = class

private

x,y: integer;

public

constructorCreate(xx,yy: integer);

begin

x := xx;

y := yy;

end;

procedureDraw; abstract;

end;

Классы, содержащие абстрактные методы, также называются абстрактными. Экземпляры этих классов создавать нельзя.

Классы с абстрактными методами используются как полуфабрикаты для создания других классов. Например:

type

Point = class(Shape)

public

procedureDraw; override;

begin

PitPixel(x,y,Color.Black);

end;

end;

Использование overrideпри переопределении абстрактных методов обязательно, поскольку абстрактные методы являются разновидностью виртуальных.

Перегрузка операций - это средство языка, позволяющее вводить операции над типами, определяемыми пользователем. В PascalABC.NETможно использовать только предопределенные значки операций. Перегрузка операций для типа T, являющегося классом или записью, осуществляется при помощи статической (классовой) функции-метода со специальным именем operator ЗнакОперации . Перегрузка специальных операций +=, -=, *=, /= осуществляется с помощью статической (классовой) процедуры-метода, первый параметр которой передается по ссылке.

Например:

type

Complex = record

re,im: real;

class function operator+(a,b: Complex): Complex;

begin

Result.re := a.re + b.re;

Result.im := a.im + b.im;

end;

class function operator=(a,b: Complex): boolean;

begin

Result := (a.re = b.re) and(a.im = b.im);

end;

end;

Для перегрузки операций действуют следующие правила:

* Перегружать можно все операции за исключением @ (взятие адреса), as, is, new. Кроме того, можно перегружать специальные бинарные операции +=, -=, *=, /=, не возвращающие значений.

* Перегружать можно только еще не перегруженные операции.

* Тип по крайней мере одного операнда должен совпадать с типом класса или записи, внутри которого определена операция.

* Перегрузка осуществляется с помощью статической функции-метода, количество параметров которой совпадает с количеством параметров соответствующей операции (2 - для бинарной, 1 - для унарной).

* Перегрузка операций +=, -=, *=, /= для соответствующих операторов осуществляется с помощью статической процедуры-метода, первый параметр которой передается по ссылке и имеет тип записи или класса, в котором определяется данная операция, второй - передается по значению и совместим по присваиванию с первым. Перегрузка остальных операций осуществляется с помощью статических функций-методов.

* Типы интерфейсов не могут быть типами параметров. Причина: типы параметров должны вычисляться на этапе компиляции.

* Операции приведения типа задаются статическими функциями, у которых вместо имени используется operator implicit(для неявного приведения типа) или operator explicit(для явного приведения типа).