// ----------------------------------------------------------------------------- <Br/> # include <vcl. h> <br/> # pragma hdrstop <br/> # include <iostream> <br/> using namespace std; <br/> // construct <br/> # pragma argsused <br/> class A //: public TObject <br/>{< br/> private: <br/> int Fx; <br/> AnsiString name; <br/> void _ fastcall sWrite (AnsiString stext); <br/> AnsiString _ fastcall sRead (); <br/> public: <br/> void _ fastcall show (); <br/> // _ published: _ published or _ automated sections only supported for VCL classes <br/> _ property AnsiString str = {read = sRead, write = sWrite }; <br/> _ property int X = {read = Fx, write = Fx };< br/>}; <br/> void _ fastcall A: show () <br/>{< br/> cout <"It is show ()" <endl; <br/>}< br/> AnsiString _ fastcall :: sRead () <br/>{< br/> cout <"now in sRead" <endl; <br/> return name; <br/>}< br/> void _ fastcall A: sWrite (AnsiString stext) <br/>{< br/> cout <"now is sWrite" <endl; <br/> name = stext; <br/>}< br/> int main (int argc, char * argv []) <br/>{< br/> A a; <br/> AnsiString str; <br/>. str = "hello"; <br/> str =. str; <br/> system ("pause"); <br/> return 0; <br/>}< br/> // else <br/>