Discussion :

[QAYS]

bonjour

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci

[Pedro]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  TObjetC(FList[i])

Voila
Pour plus d'infos, sur TObjectList