Discussion :

[[Silk]]

Salut,
Je veux ajouter un objet dans une TObjectList qui peut être trois types : TPNJSprite, TEnnemiSprite et THeroSprite tous trois ayant la classe TSprite pour ancètre, j'ai 3 TObjectList qui réunissent tous les objets créés selon les 3 type du dessus et j'ai une fonction :

Code :

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

1
2
function addSprite(List : TObjectList):TSprite

qui est chargée de m'ajouter un objet de type ancètre TSprite dans la liste spécifiée mais je n'ai pas réussi à récupérer le nom de la liste passée en paramètre.
J'ai essayé sa :

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
function TSpriteManager.AddSprite(List : TObjectList): TSprite;
 begin
  if List = TObjectList(FindComponent('FPNJList')) then
    Result := TPNJSprite.Create(FCanvas,FImages,self,Fback)
  else
  if List = TObjectList(FindComponent('FEnnemiList')) then
    Result := TSprite.Create(FCanvas,FImages,self,Fback)
  else
  if List = TObjectList(FindComponent('FHeroList')) then
    Result := TSprite.Create(FCanvas,FImages,self,Fback);

  List.Add(Result);

end;

mais delphi me met que Findcomponent n'est pas déclaré !? pourtant j'ai bien Classes dans mes uses

[neilbgr]

FindComponent() est une méthode d'instance de classe TComponent. Donc, à priori ton TSpriteManager n'est pas un TComponent.
Mais peu importe, si ton TSpriteManager à la main sur ces trois listes, pourquoi pas faire come ceci ? :

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
function TSpriteManager.AddSprite(List : TObjectList): TSprite;
 begin
  if List = FPNJList then
    Result := TPNJSprite.Create(FCanvas,FImages,self,Fback)
  else
  if List = FEnnemiList then
    Result := TSprite.Create(FCanvas,FImages,self,Fback)
  else
  if List = FHeroList then
    Result := TSprite.Create(FCanvas,FImages,self,Fback);
  else
    raise Exception.Create('Y a un soucis par ici...');
 
  List.Add(Result);
 
end;

[tourlourou]

FindComponent() est fait pour retourner un pointeur sur un composant (pas un objet) qui a une propriété Name (champ de l'objet)

si tes 3 listes sont de types différents, tu peux faire :
if List is TPNJList then ...
(même si c'est 3 fois TMachin=class(TObjectList)

si ce n'est pas le cas, et que tes 3 listes sont de même type, c'est fichu !

mais l'appel à la fonction peut être repensé : passe juste une variable qui dit le type de sprite à créer, si la procédure a accès aux 3 listes

[Graffito]

Bonjour,

Findcomponent est une methode de Tcomponent et de ses heritiers (Tpanel, Tform,....)

Code :

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

1
2
 
mycomponent:=form1.findcomponent('xxx') ;

[[Silk]]

merci pour vos réponses
j'ai utilisé la solution neibgr , et sa m'a l'air de marcher (plus d'erreur du compilateur mais je ne peux pas tester les classes sont en chantier)
et sa m'évite de devoir créer un type supplémentaire à faire passer en paramètre