TCollectionItem with a TCollection member???

[rcloutie]

Hi there,

First, I'm using Delphi 2006.

I've defined 3 classes to implement collection minding in my app.
TclsArtItem = class(TCollectionItem)
TclsArtList = class(TCollection)
TclsArt = class(TCollection)

All works fine but one thing: TCollectionItem must have a member which is of type TCollection. Yes, a recursive architecture...

Here's an example in the real life: a product is built from some products (components) and take part of some other products which in turn can be component of others products...

So, how to create a property in the TCollectionItem class which refers to the TCollection?

Thanks for help,

RC

 

[Griffyn]

Delphi allows forward declarations. You can do this as follows:

[navy][i]// for automatic syntax highlighting see faq102-6487 
[/i][/navy][b]unit[/b] MyUnit;

[b]interface[/b]

[b]type[/b]
  TclsArtList = [b]class[/b](TCollection);

  TclsArtItem = [b]class[/b](TCollectionItem)
  [b]private[/b]
    FCollection: TclsArtList;
  [b]end[/b];

  TclsArtList = [b]class[/b](TCollection)
  [b]private[/b]
  [navy][i]// put the class stuff here 
[/i][/navy]  [b]end[/b];

 

[Griffyn]

oops. Change the forward declaration to

  TclsArtList = class;
[code]

At least that's what I have in my progs