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

[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); выполнял только методы родителя или как-то так.

[sheka]

Хм..
Меня интересует чуть

другой код: (Показать/Скрыть)

{$mode objfpc}

type
  A = class
    procedure P(const Path: string; var fconfig: text); virtual; overload;
    procedure P(const Path, FileName: string); overload;
  end;

  B = class(A)
    procedure P(const Path: string; var fconfig: text); virtual; //overload; //<---когда закомментировано - почему-то не работает
  end;

procedure A.P(const Path: string; var fconfig: text);
begin
  writeln('A.P (string, text)');
end;
procedure A.P(const Path, FileName: string);
var
  fconfig: text;
begin
  writeln('A.P (string, string)');
  P(Path+FileName+'\',fconfig);
end;

procedure B.P(const Path: string; var fconfig: text);
var finfName: string;
begin
  writeln('B.P (string, text)');
  inherited P(Path, finfName);
end;

var
  ObjB : B;

begin
  ObjB := B.Create;
  ObjB.P('s', '');
end.

который выдает в такой реализации:
A.P (string, string)
A.P (string, text)
а в

такой: (Показать/Скрыть)

type
  A = object
    procedure P(const Path: string; var fconfig: text); virtual; overload;
    procedure P(const Path, FileName: string); overload;
  end;

  B = object(A)
    procedure P(const Path: string; var fconfig: text); virtual;
    constructor Create;
  end;

procedure A.P(const Path: string; var fconfig: text);
begin
  writeln('A.P (string, text)');
end;
procedure A.P(const Path, FileName: string);
var
  fconfig: text;
begin
  writeln('A.P (string, string)');
  P(Path+FileName+'\',fconfig);
end;

procedure B.P(const Path: string; var fconfig: text);
var finfName: string;
begin
  writeln('B.P (string, text)');     readln;
  inherited P(Path, finfName);
end;

constructor b.Create;
begin
end;

var
  ObjB : B;
  T : text;

begin
  ObjB.Create;
  ObjB.P('s', '' );
end.

Вот это:
A.P (string, string) //В вызывает родительский Р
B.P (string, text) //Создается В

A.P (string, string) //вызывается inherited
B.P (string, text) //вот здесь идет вызов метода В вместо мной желаемого А, что почему-то в вашем коде и происходит, а в моем - нет.
итд., идет зацикливание
Как вы вставляете "скрины" текстом?