Field getting added to Delphi Class m_TRowL

[Bill Egge]

I have a class named TTableGen which has a reference to a TRowLooper.  Each time I generate the code, a new field gets added to the TTableGen class in the public area in the form of

m_TRowLooper: TRowLooper;


Why is it doing that?  I already have a field named FRowLooper but for some reason EA wants to create this new field.


This is what the class is suppose to look like:

Code: [Select]


 TTableGen = class
 private
   FColumns: TColumnArray;
   FRowLooper: TRowLooper;
   procedure LoadColumns(Main: _Recordset);
   procedure LoadRowLooper(Main: _Recordset);
 public
   function GetText: String;
   procedure LoadFromRecordset(R: _Recordset);
   constructor Create; overload;
   destructor Destroy; override;
   property Columns: TColumnArray read FColumns write FColumns;
   property RowLooper: TRowLooper read FRowLooper write FRowLooper;
 end;


I re-import the source and turn right around and generate the source and I get this:

Code: [Select]


 TTableGen = class
 private
   FColumns: TColumnArray;
   FRowLooper: TRowLooper;
   procedure LoadColumns(Main: _Recordset);
   procedure LoadRowLooper(Main: _Recordset);
 public
   m_TColumn: TColumn;
   m_TRowLooper: TRowLooper;
   function GetText: String;
   procedure LoadFromRecordset(R: _Recordset);
   constructor Create; overload;
   destructor Destroy; override;
   property Columns: TColumnArray read FColumns write FColumns;
   property RowLooper: TRowLooper read FRowLooper write FRowLooper;
 end;


The only explanation I can come up with is that I added a composite relationship between these classes in the diagram editor.

[Eve]

EA is autogenerating a role for your composite relationship.  To stop it go to the Generation page of the options dialog (Tools | Options) and uncheck "Auto generate role names when creating code".

Alternatively you could go to the Attributes/Operations dialog and edit the default name generated.  I don't think you can get FRowLooper from TRowLooper by doing that though.

Simon

[Bill Egge]

Thank you,  I decided to try your alternative and it worked.  But I had to edit it from the properties of the composite line in the diagram by setting the role.

Thank you.