Problème avec la création d'un objet array

Version imprimable

bonjour

j'ai un pb avec la creation d'un objet;

voici le code, pouvez-vous me dire le problème:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
    TObjetB= CLass
        Private
        Published
        Public
            Constructor OpenObjetB;
            Destructor  CloseObjetB;
    End;
 
    TObjetA= CLass
        Private
        Published
        Public
            Constructor OpenObjetA;
            Destructor  CloseObjetA;
    End;
 
 
    TObjetC= CLass
        Private
            FObjetA : TObjetA;
            Function GetObjetB(NumObj: Integer): TObjetB;
            Procedure SetObjetB(NumObj: Integer; Value: TObjetB);
        Published
            Property LObjetA: TObjetA Read FObjetA Write FObjetA;
            Property LObjetB[NumObj:Integer]  : TObjetB Read GetObjetB Write SetObjetB;
        Public
            Constructor OpenObjetC;
            Destructor  CloseObjetC;
    End;

message d'erreur a la complilation
LObjetB ne peut pas etre de type array

merci

22/09/2007, 19h20
Pedro

Salut :)
TU ne peux pas avoir de propriété de type array en published ;)
Il faut que tu passes cette propriété en public, ou bien utiliser les TCollection.
22/09/2007, 22h41
QAYS
merci j'ai essayé et cela passe, par contre apresè test je me rend contre que mon codage n'est pas correcte

en fait je souhaite avoir une liste de l'objetC dans l'objetA que me conseillerz-vous de faire.

en effet lorsque je fais des tests je constate un problème avec l'objetC
Code:

1 2 3 4 5 6 var OBJETA:TOBJETA; begin OBJETA:= TOBJETA.Create; OBJETA.OBJETC[1].????? OBJETA.OBJETB[1].?????
merci

Salut :)
Pour une liste d'objet, il faut utiliser la TObjectList (contnrs). Dans ton ObjetA, tu déclares une TObjectList que tu crées dans son Create et que tu détruis dans son Destroy. Cela donne à peu près quelque chose comme ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 type TObjetA = class private FList: TObjectList; public constructor Create; destructor Destroy; override; end; implementation constructor TObjetA.Create; var t: TObjetC i: integer; begin inherited; FList := TObjectList.Create(true); for i:= 1 to 4 do begin t := TObjetC.Cerate; FList.Add(C); end; end; destructor Destroy; begin Flist.Free; inherited; end;
Ensuite, tu accèdes aux objets de la liste en castant de cette façon:
Code:

1 2 TObjetC(FList[i])
Voila :)
Pour plus d'infos, :f1: sur TObjectList