Перегрузка виртуальных методов

[mongolores]

Добрый день, уважаемые участники форума. Ищу более опытных людей для решения непосильной пока для меня задачи. Сразу к делу:
Есть абстрактный класс TLogger, описывающий журнал событий (лог). Конечно в нем можно встретить самую наверное основную функцию всех логгеров - запись некоего сообщения в файл или, например, таблицу базы данных. Ну вот что-то вроде:

TLogger = class
  procedure WriteEntry; virtual; abstract;
end;

На основе этого класса можно создавать реализуемые, не абстрактные классы, которые будут работать с разными форматами лог-сообщений: отдельное сообщение может быть представлено например обычной текстовой строкой, а можно и более развернуто - XML-узлом. Соответственно в процедуру WriteEntry нужно передать сообщение в "родном" для данного класса формате, например:

 TTXTLogger = class (TLogger)
      procedure WriteEntry(pEnrty: String); override;
  end;

 TXMLLogger = class (TLogger)
      procedure WriteEntry(pEnrty: TXMLNode); override;
  end;

Учитывая, что базовый (абстрактный) класс по-идее понятия не имеет в каком формате будут вестись сообщения, а описывает лишь общие особенности логгера, то и в его проедуру я не могу передать параметр какого-либо конкретного типа:

TLogger = class
  procedure WriteEntry(pEnrty: ???); virtual; abstract;
end;

А перегрузить виртуальный метод в классе-потомке компилятор тоже не дает:

// Увы, не прокатило ((
procedure WriteEntry(pEnrty: String); override; overload;
procedure WriteEntry(pEnrty: TXMLNode); override; overload;

Я - максималист )) Люблю, когда задача реализована ясно и профессионально. Помогите, пожалуйста, сохранить абстрактный класс (ведь он описывает основные свойства для потомков!) и научить методы потомков работать с данными, которые неизвестны предку.
Заранее спасибо за участие!

[SNUPY]

однако порно ^_^

  TLogger = class
    public
      procedure WriteEntry; dynamic; abstract;
  end;


  TTXTLogger = class (TLogger)
    private
      procedure WriteEntry; overload; override;
    public
      procedure WriteEntry(pEnrty: String); overload;
  end;

[Аватар]

override из наследника нужно убрать
предупреждение типа "метод WriteEntry скрыл виртуальный метод базового типа" останется

[SNUPY]

Сообщение от Аватар

override из наследника нужно убрать
предупреждение типа "метод WriteEntry скрыл виртуальный метод базового типа" останется

Извините пожалуйста меня уважаемый! Но по моему абстрактные методы не спроста делаются ведь. Сколько я понимаю создание абстрактного метода вызвано тем, что в родительском классе есть участки кода, где можно уже выразился явный алгоритм, но вот ведь мать его, одного или нескольких методов сейчас вот никак не определишь для реализации данного алгоритма. И поэтому вот такое решение

override из наследника нужно убрать

может сыграть в злую шутку потом.
Либо я вас не правильно понял. А вообще лучше покажите что вы имели введу.

[Аватар]

Согласен, переклинило насчет абстрактного

[phomm]

Оверрайд нужен конечно, хотя бы потому, что клиент не обязан знать конкретного типа логгера , если ему его подвязывают извне, а просто вызывать методы, которые ясное дело виртуальные.

Метод SNUPY вроде как на первый взгляд неплох (надо будет попробовать мне, самому иногда подобные мысли приходят), но опять же , как сделать общий интерфейс класса, когда мы не должны знать о конкретном потомке...

Я бы предложил довольно избитый способ - способ борланда, передавать (всеми любимый, гы) Sender: TObject, ну, или точнее в данном случае pEntry: Object , если конечно подхакерить (ну точнее баловаться контрактом), то можно кидать и строки туда в виде WriteEntry(TObject(MyStr)), но если сильно уперлись строки , то можно вместо TОbject сразу Pointer объявить, а там уж каждый наследник кастует к нужному ему типу.
Только есть небольшой геморрой в этом, я бы уберегся создав собственную иерархию оберток под объекты, т.е. создать базовый Tentry, в него нужные поля, потом куча наследников этого энтри со своими полями, ну а логгер абстрактный принимает этjго Tentry, а каждый потомок логгера кастует эту ентрю к своему типу.

[SNUPY]

Немного допешу что я имел введу =)

  TLogger = class
    public
      procedure WriteEntry; dynamic; abstract;
  end;


  TTXTLogger = class (TLogger)
    private
      FpEnrty: string
      procedure WriteEntry; overload; override;
    public
      procedure WriteEntry(pEnrty: String); overload;
  end;
...
procedure TLogger.WriteEntry;
begin
   ...
   WriteEntry(FpEnrty);
   ...
end;

[GunSmoker]

Из вопроса не ясно, а зачем, собственно, нужен виртуальный абстрактный метод у класса-предка. Ведь вызвать его нельзя.

[3D Hunter]

Ну, абстрактный метод не может быть не виртуальным. Обычно такие абстрактные классы являются шаблонами-заготовками для полноценных рабочих классов. Например, как класс TStrings.
Как вариант, действительно, в методе предка тип параметра лучше сделать вообще Pointer или Variant:

  procedure WriteEntry(const AVal:Pointer); virtual; abstract;
//или
  procedure WriteEntry(const AVal:Variant); virtual; abstract;
end;

[GunSmoker]

Я не это имел в виду.

Абстрактные методы нужны, чтобы их можно было вызывать, имея на руках экземпляр базового класса, не зная точных деталей реализации.

В задаче же, как она указана в вопросе, метод вообще нельзя вызвать, не зная деталей реализации. Иными словами, если у нас есть ссылка на TLogger, мы не можем вызвать WriteEntry, не зная о том, какой именно это подкласс (чтобы передать ему нужный параметр).

Внимание, вопрос: а нафига этот метод тогда нужен?