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

[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]

Писать заставляют в Turbo Pascale.

В таком случае надо было и приводить код, который будет компилироваться в TP Да и отлаживать код надо тоже в Турбо-Паскале. А то рискуешь в самый решающий момент нарваться на проблему: в FPC все будет в шоколаде, а TP или какого-то квалификатора знать не будет (типа Overload), либо, что еще хуже, работать будет не так, как ожидается. И будешь ловить ошибки.

А откуда тогда она знает когда должно выполняться "как ожидается", а когда срабатывать полиморфизм? И как вообще будет работать полиморфизм, если у предка будет 2 метода с полностью одинаковыми заголовками?

Полиморфизм - это возможность передать в

procedure Polymorphic(var Obj : A);
begin
   Obj.P('a', 'b');
end;

объект любого типа, производного от A и, в зависимости от типа объекта, вызывается нужный виртуальный метод. При чем он в твоем случае? У тебя тут полиморфизмом и не пахнет Метод B.P(string, text) для возможности использования полиморфизма надо перекрыть через Override, у тебя он не перекрыт, для класса A все становится очевидно: из невиртуального метода A.P(string, string) может быть вызван только A.P(string, text)... Я ж давал тебе ссылки вроде на разжевывание ООП-модели?

Давай все-таки ближе к конкретному языку. Тебе нужно это с использованием TP? Не заморачивайся, там нет перегрузки вообще. Твой код просто напросто не откомпилируется, пока ты не поменяешь названия методам.