[TCollection] Sauvegarde dans un fichier puis récupération avec son ID

Je me creuse le ciboulot sur un autre problême :
j'ai deux collections (dérivées TCollection).
Chaque Item de ma 1ère collection référence un Item de ma 2ème collection via le un champ RefID (integer) qui correspond au ID de l'item correspondant.

Maintenant j'aimerais pouvoir sauver dans 2 fichiers séparés, mes deux collection, de telle façon que je puisse, lors d'une autre session de travail, récupérer mes collections en gardant les ID de mes items de ma deuxième collection tels qu'ils étaient auparavant (afin que mes "liens" fonctionnen encore).

Pour ça, j'ai trouvé une solution qui permet de sauvegarder les composants collection eux même via la méthode TStream.SaveComponent.
Ce que j'aimerais plutot, c'est d'enregistrer mes collections dans des fichiers typés en utilisant que les propriétés "données" qui me sont réellement utiles de mes Items afin de pouvoir
1) traiter les données des collections item au cas par cas lors d'enregistrement ou chargement.
2) pouvoir utiliser les données de mes fichiers dans une autre application

Merci

Je tourne en Delphi 7

Salut
Est-ce que ton ID correspont à son Index dans la liste? Si oui, alors tu crées ton fichier en enregistrant un par un tes CollectionItem. Puis en les chargeant, tu les crées dans l'ordre dans lequel il les lit, ça ne devrait pas poser de problème... :wink:

Salut,
Hé bien non, pas forcément ! :?

ID correspond à la propriété ID du CollectionItem qui est en lecture seule (c'est là où le bas blesse).
C'est un integer qui identifie de façon unique les items de la collection (voir aide Delphi).

en fait, c'est une sorte de champ autoincrémenté...

donc, quand tu ajoutes un item (TCollection.add), une ID unique est générée et pour l'Item par delphi (tant que tu ajoutes depuis une collection vide au départ, ID=index)
quand tu supprimes un item de la collection, les items qui se trouvent après l'item que tu viens de supprimer changent d'index mais pas d'ID.

Quand tu rajoutes alors un item à ta collection item tu obtient index=ID-1

concrètement, voici une collection obtenue à partir de rien (on a ajouté les item à partir d'une collection vide) :
Code:

1 2 3 4 5 6 7 8 9 Nom index ID ---------------------------- itemA 0 0 itemB 1 1 itemC 2 2 itemD 3 3 itemE 4 4 itemF 5 5
On supprime ItemC avec TCollection.delete(2), on obtient :
Code:

1 2 3 4 5 6 7 8 Nom index ID ---------------------------- itemA 0 0 itemB 1 1 itemD 2 3 itemE 3 4 itemF 4 5
On ajoute ItemG avec TCollection.Add, on obtient :
Code:

1 2 3 4 5 6 7 8 9 Nom index ID ---------------------------- itemA 0 0 itemB 1 1 itemD 2 3 itemE 3 4 itemF 4 5 itemG 5 6
Eventuellement, on insère ItemH avec TCollection.insert(3), on obtient :
Code:

1 2 3 4 5 6 7 8 9 10 Nom index ID ---------------------------- itemA 0 0 itemB 1 1 itemD 2 3 itemH 3 7 itemE 4 4 itemF 5 5 itemG 6 6
Dans mon fichier, je vois bien comment sauver ID, mais pour recréer ma collection à partir d'une collection vide, étant donné que ID est en lecture seule, je ne vois pas...

C'est vrai qu'utiliser index à la place de ID est plus facile dans pour la sauvegarde et la restitution à partir de mon fichier typé, mais étant donné que l'index des items peut changer suite à la suppression d'un seul item de la liste, je ne vois pas comment gérer les liens RefID de ma première collection...

C'est l'histoire du serpent qui se mord la queue ! :roll: