, er det ofte nødvendigt at tillade egenskaber, som er kun at være skrivbare på målet i sig selv, tror jeg,,, 1) at skabe en ejendom internalchangecount på deres base i klasse, de mærkede værdier, sikre, at dristige, ved, at det er en delphi attribut med en område for at læse adgang og skrive adgang, 2) at skabe følgende private metoder, procedurer tbusinessclassesroot. startinternalchange;,, begynder, inc. (finternalchangecount);,,,,,, procedure tbusinessclassesroot. endinternalchange;, begynder, hvis internalchangecount = 0, med undtagelse. skabe ('endinternalchange uden startinternalchange);,, dec (finternalchangecount);,,,,,, funktion tbusinessclassesroot.isinternalchange: boolean,,, begynder, resultat: = finternalchangecount > 0,,,,,,, 3) over følgende,,, procedure tbusinessclassesroot. afterconstruction;,, begynder, finternalchangecount: = 0,,,,,,, jeg har aldrig gidet med selv den her}, giver tbusinessclassesroot. ødelægge;, begynder,,, hvis internalchangecount > 0, med undtagelse. skabe ('startinternalchange uden endinternalchange), arvede,,,,,,,, så alle dine klasser har evnen til at gøre dette,,,,, startinternalchange; prøver, somereadonlyattribute: = 32; og endelig, endinternalchange,,,,,,, i din efterkommer klasser, du ville tilsidesætte receivequeryfromowned og så gøre det her...... begynde,, resultat: = arvede receivequeryfromowned (osv., osv., osv.), hvis resultatet så begynde, hvis originalevent = bqmaymodify, hvis isinternalchange så, resultat: = sandt, ellers begynder, hvis oprindelige = m_somereadonlyattribute så, resultat: = falske,,,,,,,,,,,,,,,,