, soms nodig om naar het object zelf geschreven - eigenschap kan worden, en ik doe het,,, 1) de oprichting van een eigenschap van je internalchangecount in waarde, etikettering, om ervoor te zorgen dat de moedige weet, is dit een van de eigenschappen van Delphi, lezen en schrijven een bezoek aan vragen,,, 2) tot de volgende methoden, procedures en de particuliere, tbusinessclassesroot. Startinternalchange;,,,,,,,,,, finternalchangecount), het einde van de procedure; tbusinessclassesroot. Endinternalchange;,,,, als internalchangecount = 0 en de verbetering van het creëren, (uitzondering.'endinternalchange niet startinternalchange "); (finternalchangecount, dec.);,,,,, aan het einde van de functie van tbusinessclassesroo;T.isinternalchange: Bull.,,,, de resultaten: = finternalchangecount > 0;,,,,, 3) aan het einde van het volgende programma,,,,,, te beginnen met de bouw van tbusinessclassesroot.;,, finternalchangecount:= 0;,,,,, aan het einde van {; ik niet en dat een eigen, verschrikkelijke} tbusinessclassesroot. Vernietiging;,,,,, als internalchangecount > 0 en de verbetering van de anomalie, het creëren van (niet endinternalchange.'startinternalchange ");,,,,,,, aan het einde van de erfenis;; nu al je lessen zijn om dit te doen, om te startinternalchange;,,,,, somereadonlyattribute:= 32; de laatste endinternalchange;,,,,,,,, aan het einde van je kinderen je receivequeryfromowned; het dan doen...,,,Resultaten: =,, de opvolger van receivequeryfromowned (. - wacht, wacht, wacht, enz.); als resultaat,,,,,, als originalevent = bqmaymodify dan, als isinternalchange en resultaten: = echt beginnen, anders,,,,, als de stichters = m_somereadonlyattribute en resultaten: = vals;,,,, te beëindigen;,,,,, einde.