Запись значения в родительский приват класса...
Всем привет!
Возникла такая задача, записать значение в родительский приват...
А именно, у меня есть .pas модуль, который я подключаю к своему проекту.
В нём есть класс TTest1, в классе есть поля в private, например
FIndex: integer;
Многие функции класса TTest1 используют FIndex, но у класса нет процедур для внешней записи, чтения FIndex!
Но есть процедуры, которые используют FIndex и которые заменяемые (virtual)!
Так вот мне нужно заменить одну из таких процедур, например:
procedure IncIndex; virtual;
на свою процедуру, в новом классе TTest2= class(TTest1)
procedure IncIndex; override;
Но проблема в том, что из новой процедуры TTest2.IncIndex; override;
Я не смогу поменять TTest1.FIndex, а поменять нужно, для того чтобы другие функции класса TTest1 обработали FIndex!
Ну а поменять не могу, т.к. нет доступа, ну или не знаю как поменять...
А менять сам модуль TTest1 - не желательно, только на крайний случай поменяю, если не найду решения...
Прошу помочь =)
Если не понятно, могу привести пример, ток толку от него и так вроде понятно...
|