Иерархия классов для представления геометрических фигур

[shilovec5377]

Всем привет.

На данном этапе просто хочу убедиться, что наследование реализовано корректно. Но когда пробую вызвать GetName, то возвращается только geometry. Остальные значения - пустые. Подорзреваю, что это из-за того, что неправильно работают конструкторы.
Как это исправить?

Т.е., я хочу добиться того, чтобы на данном этапе программа выдавала

geometry
polyline
polygon
ellipse
rectangle
а не только geometry (а затем 4 пустые строки).

Условие задачи
Разработать иерархию классов для представления геометрических
фигур: прямая, ломанная, прямоугольник, эллипс, многоугольник.
Разработать контейнер для хранения фигур.
Контейнер для хранения фигур реализовать в виде интерфейса с
общими методами для всех фигур. Классы каждой из фигур должны быть
реализацией данного интерфейса.

[саша40]

Вопрос: Вы к нам по условию задачи или по конструктору?

[phomm]

Ваша ошибка вот в этом:

  function TEllipse.GetName: String;
  begin
    GetName := inherited GetName;
  end;

Если работаете в Дельфи, то советую использовать псевдопеременную Result для возврата значения функции.

[shilovec5377]

Сообщение от phomm

Ваша ошибка вот в этом:

  function TEllipse.GetName: String;
  begin
    GetName := inherited GetName;
  end;

Если работаете в Дельфи, то советую использовать псевдопеременную Result для возврата значения функции.

что-то вроде этого

function TEllipse.GetName: String;
  begin
    Result := inherited GetName;
  end;