| TBeObject = class(TObject) |
ancestor of all BePascal objects |
| private |
|
| procedure Debug; |
|
| protected |
|
| FCPlusObject : TCPlusObject; |
|
| public |
|
| constructor Create; virtual; |
in derived classes, this constructor should not only create the pascal object, but also the C++ one. A pointer to this object should also be stored in the FCPlusObject field. |
| constructor CreatePas; virtual; |
|
| constructor Wrap(ACPlusObject : TCPlusObject); virtual; |
Create a TBeObject instance around a C++ object |
| destructor UnWrap; virtual; |
|
| property CPlusObject : TCPlusObject read FCPlusObject write FCPlusObject; |
|