Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c