Форум: "Прочее";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
ВнизЗадачка (почти пятничная :) Найти похожие ветки
← →
Loginov Dmitry © (2006-10-06 11:22) [0]В модуле DBClients имеется класс TClientDataSet. Этот модуль используют несколько десятков других модулей. Потребовалось написать наследника от TClientDataSet, в котором перекрывается процедура сохранения изменений на сервере DoApplyUpdates.
TMyClientDataSet = class(TClientDataSet)
....
end;
Нужно, чтобы при упоминании класса TClientDataSet в любом модуле использовалась ссылка на мой класс TMyClientDataSet.
Т.е. чтобы было наподобие:
initialization
Integer(TClientDataSet) := Integer(TMyClientDataSet);
но это не прокатывает.
Как можно решить проблему, не вынося класс TMyClientDataSet в отдельный модуль с последующим упоминанием его в конце списка uses других модулей?
← →
Loginov Dmitry © (2006-10-06 11:39) [1]Даже так не работает:
PPointer(TClientDataSet)^ := PPointer(TMyClientDataSet)^;
выдает AV при запуске :)))
Кажется я что-то делаю не так :)))
← →
clickmaker © (2006-10-06 12:15) [2]UnregisterClass / RegisterClass?
← →
clickmaker © (2006-10-06 12:17) [3]или так
type
TMyClientDataSet = class(TCustomClientDataSet)
....
end;
TClientDataSet = class(TMyClientDataSet );
← →
Desdechado © (2006-10-06 12:44) [4]либо используй везде наследника и подключай в uses
либо скопируй исходный файл генофонда в папку с проектом и там уже правь генофонд
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c