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

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

//<---когда закомментировано - почему-то не работает

Оно никак не будет работать иначе. Ни когда закомментировано, ни когда раскомментировано. У класса B только один метод, который принимает две строки. И он реализован в классе A.

Разумеется, и из A.P(string, string) будет вызван именно тот P(string, text), который описан в том же A. Поскольку A.P(string, string) невиртуальный.

А вторая программа - вообще никуда не годится. Сказано было 1000 раз: когда в классе/объекте есть виртуальные методы - перед обращением к ним должен быть вызван конструктор. У тебя конструктор базового типа не вызывается (Object и Class - это не синонимы для описания эквивалентных вещей. Между ними очень много разного). ССЗБ, как говорится. Кстати, FPC 2.4.2 вообще не компилирует твою вторую программу. Он считает, что в Object-е конструктор должен именоваться Init, и никак иначе. Create не пропускается...

Как вы вставляете "скрины" текстом?

Теги [ CONSOLE ] [ /CONSOLE ]?

Сообщение отредактировано: IUnknown - 4.05.2011 18:48