On 22 фев, 11:55, "Vlad Horsun" <[EMAIL PROTECTED]> wrote:
> "Андрей Могильный" ...
>
>
>
> > TSimpleDataSet = class(TCustomClientDataSet)
> > private
> > ...
> > FProvider: TDataSetProvider;
Vlad Horsun:
Вот за что я _люблю_ дельфи - это за наличие исходников компонент
:-)
>
> А вот за это я бы убил проектировщиков - очень много таких "спрятанных"
> мест. Вот накуя там private, а не protected ? Чего было прятать этот
> несчастный
> провайдер ? Вся VCL этим грешит, особенно DataSet часть
> THackSimpleDataSet = class(TCustomClientDataSet)
> ...
> FProvider: TDataSetProvider;
> end
>
До хака я и сам уже с утра додумался :-) Только назвать его успел по
другому :-)
> THackSimpleDataSet должен, есс-но, быть скопирован с TSimpleDataSet
> вплоть до интересующего члена ( :) )
>
> THackSimpleDataSet(mySimpleDS).FProvider теперь доступен
>
Вот только теперь у меня почему то при попытке сохранения получается
exception
"unable to find record: no key specified". Хотя в ключевом поле стоит
флажок pfInKey...
На ApplyUpdates. Но при попытке раскуртить до конца ApplyUpdates -
упираюсь в интерфейсы из midas.dll
> Также можно отказаться от TSimpleDataSet и пользовать нормальную
> явную связку из 3-х (нет, не пальцев и нет - не букв ;) ) компонент
>
Да уж... Придется видно что то переделывать глобально в своих
исходничках
> --
> Хорсун Влад
