Проблема наследования статических методов

Статический – его адрес определяется на этапе компиляции программы.

Пример:

type

TRectangle = object(TFigure)

procedure Init(AX, AY: integer);

procedure Show;

procedure Hide;

procedure Move(NewX, NewY: integer);

end;

type

TFrame = object(TRectangle)

procedure Init(AX, AY: integer);

procedure Show;

procedure Hide;

end;

Попытаемся переместить рамку TFrame с помощью унаследованного метода Move. Все методы по умолчанию являются статическими.

procedure TRectangle.Move(NewX, NewY: integer);

begin

Hide;

X:= NewX; Y:=Y; {координаты}

Show;

end;

Решением проблемы является реализация виртуальных методов Show и Hide – позволит на этапе компиляции не определять их адреса.

Рекомендации: Использование виртуальных методов всегда, но это снижает эффективность. Для каждого вызова виртуального метода, вызов происходит через таблицу виртуальных методов VMT.

Динамические методы используют меньше памяти и не дублируются адреса виртуальных методов в классах наследниках.

Для динамических методов используется таблица (DMT) динамических методов.

В Паскале использование виртуальных методов требует вызова специального метода конструктора, например:

constructor Init(…);

Конструктор в любой ООС устанавливает связь экземпляра класса с VMT класса.

Дата добавления: 2014-01-07