The possibility to work with nested classes is new since Delphi 7. Here an example:
type
TOuterClass = class
strict private
myField: Integer;
public
type
TInnerClass = class
public
myInnerField: Integer;
procedure innerProc;
end;
procedure outerProc;
end;
implementation
procedure TOuterClass.TInnerClass.innerProc; begin // ... end;
procedure foo; var x: TOuterClass; y: TOuterClass.TInnerClass; begin x := TOuterClass.Create; x.outerProc; //... y := TOuterClass.TInnerClass.Create; y.innerProc; end;
Delphi2C# converts this to:
class TOuterClass : public System::TObject
{
typedef System::TObject inherited;
private:
int myField;
public:
class TInnerClass : public System::TObject
{
typedef System::TObject inherited;
public:
int myInnerField;
void innerProc();
void InitMembers(){myInnerField = 0;}
public:
TInnerClass() {InitMembers();}
};
void outerProc();
void InitMembers(){myField = 0;}
public:
TOuterClass();
};
TOuterClass::TOuterClass() {InitMembers();}
void TOuterClass::TInnerClass::innerProc()
{
// ...
}
void foo()
{
TOuterClass* x = nullptr;
TOuterClass::TInnerClass* y = nullptr;
x = new TOuterClass();
x->outerProc();
//...
y = new TOuterClass::TInnerClass();
y->innerProc();
}
Deutsch
| Latest News |
|
10/28/24
Delphi2Cpp 2.5: Symbol names matching declaration case [more...] |
|
08/26/24
Delphi2Cpp 2.4: Updated to RAD Studio 12.1 Athens [more...] |
|
"Thanks for your great work, really appreciate the work you have done on zlib and compiling ... test case." Mattewada, Udayabhaskar
Nokia India
02/01/2021
|
|
[from case study...] "A masterpiece -- Delphi2Cpp has exceeded all my expectations by far." Tony Hürlimann
virtual-optima
08/20/2011
|
|
"First off, I have to say WOW! Delphi2Cpp is doing a *fantastic* job!" Daniel Flower
linkrealms
01/15/2011
|
|
This website is generated from plain text with [Minimal Website ]
|
Minimal Website
is made with TextTransformer
|
TextTransformer is made with Borland
CBuilder
|