texttransformer.jpg

Since Delphi 7 the abilities of records have been expanded to more class-like structures with properties, methods and nested types. Example:


type
   TMyRecord = record
     type
       TInnerColorType = Integer;
     var
       Red: Integer;
     class var
       Blue: Integer;
     procedure printRed();
     constructor Create(val: Integer);
     property RedProperty: TInnerColorType read Red write Red;
     class property BlueProp: TInnerColorType read Blue write Blue;
 end;

implementation

 constructor TMyRecord.Create(val: Integer);
 begin
   Red := val;
 end;

 procedure TMyRecord.printRed;
 begin
   Writeln('Red: ', Red);
 end;

DelphiXE2Cpp11 converts these new features for C++Builder to:


struct TMyRecord
{
  typedef int TInnerColorType;
  int Red;
  static int Blue;
  void __fastcall printRed();
  __fastcall TMyRecord(int val);
  __property TInnerColorType RedProperty = { read = Red, write = Red };
  /*static */__property TInnerColorType BlueProp = { read = Blue, write = Blue };

TMyRecord() {}
};


---------------


int TMyRecord::Blue = 0;

__fastcall TMyRecord::TMyRecord(int val)
: Red(val)
{
}

void __fastcall TMyRecord::printRed()
{
  { Write(L"Red: "); WriteLn(Red); };
}

And for other compilers it becomes:


struct TMyRecord
{
  typedef int TInnerColorType;
  int Red;
  static int Blue;
  void printRed();
  TMyRecord(int val);
  /*property RedProperty : TInnerColorType read Red write Red;*/
  TInnerColorType ReadPropertyRedProperty() { return Red;}
  void WritePropertyRedProperty(int Value){Red = Value;}
  /*property BlueProp : TInnerColorType read Blue write Blue;*/
  static TInnerColorType ReadPropertyBlueProp() { return Blue;}
  static void WritePropertyBlueProp(int Value){Blue = Value;}
  void InitMembers(){Red = 0;}

TMyRecord() {InitMembers();}
};

---------------------


int TMyRecord::Blue = 0;

TMyRecord::TMyRecord(int val)
: Red(val)
{
}

void TMyRecord::printRed()
{
{ Write(L"Red: "); WriteLn(Red); };
}




   deutsch Deutsch

 

 
Latest News
02/07/22
Delphi2Cpp: Delphi 10.3 inline variables [more...]

09/09/21
Delphi2CB: has been relased [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
Minimal Website is made with TextTransformer

TextTransformer
TextTransformer is made with Borland CBuilder

  borland