Полиморфизм + Перегруженные методы Опции

[sheka]

Нужно загрузить из файла объект (TTitle) наследник родителя(TPoint).

У родителя есть 2 метода:

    procedure Load(const Path: string; var fconfig: text); virtual; overload;
    procedure Load(const Path, FileName: string); overload;

Реализованы так:

procedure TPoint.Load(const Path: string; var fconfig: text);
begin
//обработка файла
end;

//открытие файла
procedure TPoint.Load(const Path, FileName: string); 
var
  fconfig: text;
begin 
  assign(fconfig,Path+FileName+'\config.txt');
  reset(fconfig);
  Load(Path+FileName+'\',fconfig);
  close(fconfig);
end;

и у наследника:

procedure TTitle.Load(const Path: string; var fconfig: text);
var
  finf: text;
  finfName: string;
begin
  readln(fconfig);
  readln(fconfig,FinfName);
  inherited Load(Path,finfName); 
//последующая обработка файла
end;

Проблема в том, что когда в TTitle.Load происходит inherited Load(Path,finfName); далее вызывается TPoint.Load(const Path, FileName: string); который в свою очередь вместо мной желаемого procedure TPoint.Load(const Path: string; var fconfig: text); вызывает полиморфный метод наследника TTitle.Load(const Path: string; var fconfig: text); т.е. теоретически происходит зацикливание, а практически неправильная прочитка файла.

Как эту ситуацию обойти?
Т.е. чтобы inherited Load(Path,finfName); выполнял только методы родителя или как-то так.

[IUnknown]

М-да... Вот тебе как раз и разница между Object/Class...

Classes have virtual methods, just as objects do. There is however a difference between the two. For objects, it is sufficient to redeclare the same method in a descendent object with the keyword virtual to override it. For classes, the situation is different: virtual methods must be overridden with the override keyword. Failing to do so, will start a new batch of virtual methods, hiding the previous one.

То есть, что происходит в случае Objects? Метод B.P(string, string) переопределил (override) метод предка A.P(string, string), этого метода A.P(string, string) в принципе нет в экземпляре типа B. Есть только A.P(string, text) и B.P(string, string)... Вот они и вызывают друг друга.

В случае классов все по-другому. Поскольку ключевого слова Override произнесено не было - метод B.P(string, string) не переопределил подобный метод из предка, а добавлен к потомку. То есть, существует и один, и второй. И программа работает как ожидается.

sheka, а зачем именно Object-ы использовать? Пользуйся классами. Они по крайней мере себя более адекватно ведут.