Задачка (почти пятничная :)

← →
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 );

либо используй везде наследника и подключай в uses
либо скопируй исходный файл генофонда в папку с проектом и там уже правь генофонд

Задачка (почти пятничная :) Найти похожие ветки