Показать сообщение отдельно
Старый 29.08.2013, 20:50   #1
Kolobok
Оператор ЭВМ
 
Аватар для Kolobok
 
Регистрация: 02.07.2010
Сообщений: 30
Написано 0 полезных сообщений
(для 7 пользователей)
Запись значения в родительский приват класса...

Всем привет!

Возникла такая задача, записать значение в родительский приват...

А именно, у меня есть .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 - не желательно, только на крайний случай поменяю, если не найду решения...

Прошу помочь =)

Если не понятно, могу привести пример, ток толку от него и так вроде понятно...
(Offline)
 
Ответить с цитированием