Bonjour à tous,
j'utilisais jusqu'à présent dans ma class TPatentList une propriété de type TList dans laquelle je stocke des objets de type TPatentClass (très simple 1 entier "ID", 1 string "NUMBER", 1 bool "DOWNLOADED")
Note: Number prend par exemple la valeur "FR123456A1" et est unique.
Pour des raisons de gain de vitesse, on m'a proposé d'utiliser une unité ICS OverbyteIcsAvlTrees ayant un type TAvlObjTree.
Première constatation c'est vraiment plus rapide pour le Add mais voilà mon problème c'est que j'utilise un Index avec ma TList maintenant je ne peux plus le faire.
Je cherche donc un peu d'aide pour ma fonction FindByNumber. Avant je parcourais les Items un à un dans une boucle FOR mais là je ne sais pas comment faire ?
J'ai mis en attach mon tout petit prog exemple,
Est-ce que quelqu'un pourrait m'aider à écrire ma fonction TPatentList.FindByNumber(Num : String):TPatentClass;
qui permet de rechercher parmi tous mes objets de TPatentList celui qui correspond au numéro qu'on lui passe en paramètre.
par ex.:
D'avance merci pour votre aide,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 MyList : TPatentList; MyObj : TPatentClass; MyObj := MyList.FindByNumber('FR12346A1');
Amicalement,
Bruno
Partager