Запись значения в родительский приват класса...
Всем привет!
Возникла такая задача, записать значение в родительский приват... А именно, у меня есть .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 - не желательно, только на крайний случай поменяю, если не найду решения... Прошу помочь =) Если не понятно, могу привести пример, ток толку от него и так вроде понятно... |
Ответ: Запись значения в родительский приват класса...
Ну или нужно сделать, чтобы TTest1 читал FIndex из дочернего класса TTest2, если там объявлен FIndex... Так что ли, если возможно так.
Мож для этого нужно в паблике TTest2 объявить FIndex?... |
Ответ: Запись значения в родительский приват класса...
А ладно, нашёл альтернативу...
Скопировал главный файл модуля в проект, переписал и подключил всё составляющее, модуль остался не тронутым... Модуль мне не нужно было трогать, чтобы проще было потом обновляться. |
Часовой пояс GMT +4, время: 15:18. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot