Discussion :

[lio908]

Bonjour

Comment récupérer un objet Bidulle d'une classe TBidulle chargé dans une TObjectList ListeDesBidulles par la commande ListeDesBidulles.add(Bidulle).

En effet Delphi me dit

E2010 Types incompatibles TBidulle et TObject

Je suppose que le add à fonctionné mais j'en suis pas sur.

[tourlourou]

un TObjectList stocke des objets dont il ne connaît pas le type

il faut donc les transtyper :

Code :

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

1
2
3
4
with MaListe.Items[1] as TMonMachin
do begin
  //...
end;

ou

Code :

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

MonMachin:=TMonMachin(MaListe.Items[1]);

[Cl@udius]

Salut

A priori:

Code :

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

MonBidule := ListeDesBidules[I] as TMonBidule;

ou

Code :

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

MonBidule := TMonBidule(ListeDesBidules[I]);

[edit] Arrff, grilled à un milli-poil !

@+

[lio908]

ça marche

plus de rouge mais j'ai maintenant le pb suivant
EAccessviolation lors de la création des listes dans le constructeur de ma classe!!

Code :

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

1
2
3
4
5
6
7
 
constructor TGroupe.Create;
begin
   ListeFace := TObjectList.Create;
   ListePoint := TObjectList.Create;
   ListeCouleur := TObjectList.Create;
end;

précedement écrit comme ça

Code :

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

1
2
3
4
5
6
7
8
9
   TGroupe = class
   private
      Nom: string;
      Fichier: TFichier;
      ListeCouleur: TObjectList;
      ListePoint: TObjectList;
      ListeFace: TObjectList;
   public
      constructor Create;

[Paul TOTH]

ça marche

plus de rouge mais j'ai maintenant le pb suivant
EAccessviolation lors de la création des listes dans le constructeur de ma classe!!

Code :

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

1
2
3
4
5
6
7
 
constructor TGroupe.Create;
begin
   ListeFace := TObjectList.Create;
   ListePoint := TObjectList.Create;
   ListeCouleur := TObjectList.Create;
end;

précedement écrit comme ça

Code :

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

1
2
3
4
5
6
7
8
9
   TGroupe = class
   private
      Nom: string;
      Fichier: TFichier;
      ListeCouleur: TObjectList;
      ListePoint: TObjectList;
      ListeFace: TObjectList;
   public
      constructor Create;

fais-tu bien un

Code :

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

1
2
3
4
5
6
7
8
 
var
  Groupe: TGroupe;
begin
  Groupe := TGroupe.Create;
// et non un
  Groupe.Create; 
end;

[lio908]

Effectivement, c'est la bonne solutions
Merci