Discussion :

[Thierry65]

Bonjour,

J'utilise Delphi 6 perso sur Win XP.

J'ai 2 classes C1 et C2 instanciées respectivement par O1 pour C1 et O21, O22, O23, .. O2n pour C2.
Dans C1, j'ai un tableau contenant n objets O21 à O2n.

Je souhaite pour chaque objet O21 à O2n pouvoir remonter directement à l'objet O1 => O21.Proprietaire = O1

Est-ce une hérésie en POO ? Sinon, comment peut-on le faire simplement en Delphi ?

Voici ma tentative de codage qui plante avec message "Indicateur non déclaré: TClasse2" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Type
 TClasse1= class
  public
    Proprietaire : TClasse2;
  end;
 
  TClasse2 = class
  public
    Elements : array [1..5] of TClasse1;
  end;

Merci de votre aide

Thierry

[cpdump]

Je n'ai pas bien compris ce que tu cherche à faire, mais pour résoudre le message d'erreur, il faut faire une déclaration avancée de classe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Type
 TClasse2 = class;
 
 TClasse1= class
  public
    Proprietaire : TClasse2;
  end;
 
  TClasse2 = class
  public
    Elements : array [1..5] of TClasse1;
  end;

[tourlourou]

il semble que ton erreur vienne surtout de l'ordre de déclaration qui revient à une référence circulaire. Tu peux faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Type 
 TClasse1= class 
  public 
    Proprietaire : TObject; 
  end; 
 
  TClasse2 = class 
  public 
    Elements : array [1..5] of TClasse1; 
  end;

ça doit passer, et si tu veux, rajoute un test dans la fonction Set de TClass1.Proprietaire pour vérifier qu'il est bien de type TClasse2 :

Code :

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

1
2
3
4
5
6
procedure TClasse1.SetProprietaire(proprio : TObject);
begin
 if proprio is TClass2
  then self.Proprietaire := proprio
  else ShowMessage('J''en veux pas !!!');
end;

[EDIT] cpdump a raison !!!

[Thierry65]

Bonjour,

Merci beaucoup pour votre aide. J'ai utilisé la solution de cpdump , ça marche nickel.

Thierry