Discussion :

[NotANumber]

Bonjour à tous,

J'utilise les classes TCollection et TCollectionItem pour mon projet qui contient les objets suivants :

Code :

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

1
2
3
4
5
6
Joueur = class (TCollectionItem)
   nom : string;
   ....
   end;
 
Joueurs = class (TCollection);

Dans une procedure je déclare :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
UnJoueur: TJoueur;
LesJoueurs: TJoueurs;
 
begin
 
UnJoueur := TJoueur(LesJoueurs);
UnJoueur.nom := 'J1';
LesJoueurs := TJoueurs.Create(TJoueur);
//ensuite j'essye d'ajouter ce joueur à la collection LesJoueurs
UnJoueur := LesJoueurs.Add;
//Mais ca ne marche pas

J'ai essayé de faire cela dans tout les sens mais sans résultats, j'ai certaiment oublié qqch mais quoi ???

[RamDevTeam]

C'est pas exactement comme ça que ca marche.

Regarde dans les tutoriels, il y en a un qui explique le fonctionnement des collections.


Logiquement le code serait plus comme cà :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
UnJoueur: TJoueur;
LesJoueurs: TJoueurs; 
 
begin
   Lesjoueurs := Tjoueurs.create;
   Unjoueur := Lesjoueurs.add;
   Unjoueur.nom := 'J1';
end;

Pour ta collection, dérive d'un TownedCollection plutot que d'un Tcollection

[NotANumber]

Arf... J'ai toujours le même problème, lors de l'appel de Add, il me dit qu'il y a un pb de type entre TJoueur et TCollectionItem (Ce qu'il attend).

[RamDevTeam]

Peux tu poster le code de déclaration de ta collection et de ton tcollectionitem ?

[NotANumber]

hum ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
 
  TJoueur = class (TCollectionItem)
      public
      nom: string[30];
      score: integer;
  end;
 
  TJoueurs = class (TCollection);
 
implementation

[RamDevTeam]

C'est pas suffisant.
il faut que tu indique que les items de ta collection sont des Tjoueur.

Regarde le tutoriel sur les collection :
http://sjames.developpez.com/ListesCollections.pdf

et dérive de Townedcollection au lieu de Tcollection. ca facilite les choses.

Bon dev.