Discussion :

[Papy214]

Hello tou(te)s

Petite question : Comment un élément d'une liste de générique peut-il remonter à la liste qui le contient ?

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
  TNote = class
    Dte: TDateTime;
    Text: string;
  end;
 
  TNotes = class(TList<TNote>)
  end;

Si j'ajoute un élément à ma liste, et que mon élément veut accéder à une variable de la liste, c'est possible ou pas ?

[e-ric]

Salut

Hélas non, sauf à ajouter un lien de ton objet TNote sur la liste, et encore il faudra te contenter des membres publics de l'objet liste.
Peut-être qu'en définissant un Helper sur la TList<>, tu pourrais atténuer.

Que veux-tu faire exactement ?

Cdlt

[SergioMaster]

Bonjour,

Peut être qu'un TDictionnary au lieu d'une TList répondrait au problème ?

[Papy214]

Salut

Hélas non, sauf à ajouter un lien de ton objet TNote sur la liste, et encore il faudra te contenter des membres publics de l'objet liste.
Peut-être qu'en définissant un Helper sur la TList<>, tu pourrais atténuer.

Que veux-tu faire exactement ?

Cdlt

Oui, je pourrais rajouter ne référence à ma liste dans chaque objet.
En fait, je me posais la question parce que ma liste est liée à un dossier avec un ID bien précis.
Et que je voudrais pouvoir sauver en base une note en particulier (lien avec l'ID vous l'aurez compris) mais au niveau de la note plutôt que depuis la liste.
Donc, je me suis demandé si en mettant l'ID seulement au niveau la liste, je pouvais le retrouver facilement plutôt que rajouter une valeur à chaque note.
L'économie est extrêmement limitée, j'en conviens.
La question était surtout parce qu'en écrivant ma classe, je me suis demandé si c'était possible et que je ne trouvais pas la solution.

[Papy214]

Bonjour,

Peut être qu'un TDictionnary au lieu d'une TList répondrait au problème ?

Le TDictionnary ne résoudra pas le "problème" (plutôt la simple réflexion qui m'est venue hier )
Je voulais juste pouvoir associer chaque note à un dossier précis (donc ID de dossier unique pour toutes les notes).

La question était plus technique qu'une évocation d'un problème bloquant

Je pensais que j'avais peut-être zappé un truc évident mais il semble bien que non.

[anapurna]

salut

je ne vois pas le problème de passer un identifiant a un enfant

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
 
TParent =Class(TList)
  ID : Integer;
  Procedure AddEnfant();
...
end;
 
TEnfant  = Class
  IDPArent : Integer;
  IDEnfant : Integer;
  Constructor Create(Id : Integer);
...
end;
 
Constructor TEnfant.Create(Id : Integer);
begin
  IdParent := Id;
end;  
 
Procedure TParent.AddEnfant();
begin
  AddObject(TEnfant.Create(Id));
  ...
end;

[Papy214]

Tout à fait ! C'est ce que j'ai fait au final.
Encore une fois, la question était plus technique qu'une demande d'aide à la solution à un problème bloquant :-)