Discussion :

[Ptit_bouchon]

Bonjour à tous!

Voilà je m'explique, j'utilise Delphi 7. J'ai 4 TStringList qui ont des noms similaires : MaList1, MaList2, MaList3, MaList4.

Je souhaiterai trouver un moyen de pointer sur une des liste en saissant le nom de ma stringList+le n° qui va avec.
un peu comme on peut le faire avec les composants :
TEdit(Main.FindComponent(MonEdit'+N)).Clear; ou N est une chaine représentant un chiffre.

J'espère que j'ai été claire. Merci d'avance pour vos réponses.

Audrey

[tourlourou]

si c'est à partir de ton appli, pourquoi ne pas utiliser une ListBox avec en parralèle des Strings, les Objects (tes listes, donc) correspondants ?

[chaplin]

J'utiliserais une TStringList comme suit:

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
var  MyObjectIndex :integer;
     MyListofTStringList ,MyTringList : TStringList;
begin
   MyListofTStringList := TStringList.Create;
   MyListofTStringList.AddObject(MyList1.Name,MyList1);
   MyListofTStringList.AddObject(MyList2.Name,MyList2); 
   MyListofTStringList.AddObject(MyList3.Name,MyList3); 
   MyListofTStringList.AddObject(MyList4.Name,MyList4);

                ...

   MyObjectIndex  := MyListofTStringList.IndexOf(MyList1.name);

                ...

   MyListofTStringList := MyListofTStringList.items[MyObjectIndex] as TStringList

                ...

Du moins, tu as le codage élementaire pour réaliser la tâche. Je fairais une classe qui renvairait le type TMyStringList.

A se poser la question si on ne peut pas utiliser une classe générique pour l'étendre à tout type de classe ?

[Ptit_bouchon]

Merci pour vos réponses.
J'ai utilisé des array of TstringList et ça fonctionne