Discussion :

[apprenti0859]

Bonjour, voici le problème comment ajouter une TStringList dans une TstringList , il me semble que c'est avec AddStrings mais comment fait ton pour récuperer cette TStringList parce lorsque j'utilise Strings ic'est un AnsiString qui est retourné et moi je veux récupérer mon TStringList.

[white_tentacle]

Si tu ajoutes une TStringList dans une autre, en fait, il ajoute chacune des chaînes de la TStringList dans l'autre TStringList.

C'est à dire que l'information, comme quoi ces chaînes étaient regroupées dans une même TStringList, est perdue.

Si tu veux stocker des TStringList, il te faut un conteneur... de TStringList. Alors que TStringList est un conteneur d'AnsiString.

[apprenti0859]

Connaitrais-tu un conteneur de TStringList par hasard? Autrement c'est tout je vais enregistrer le count de chaque TStringList afin de pouvoir recuperer ce dont j'ai besoin.

Merci

[sat83]

Connaitrais-tu un conteneur de TStringList par hasard? Autrement c'est tout je vais enregistrer le count de chaque TStringList afin de pouvoir recuperer ce dont j'ai besoin.

Merci

Utilise par exemple TObjectList pour stocker une liste de TStringList

[sat83]

Un mini-exemple illustratif :

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
  TStringList *l1 = new TStringList() ;
  l1->Add( "[LIST1,LINE1]" );
  l1->Add( "[LIST1,LINE2]" );
  l1->Add( "[LIST1,LINE3]" );
  TStringList *l2 = new TStringList() ;
  l2->Add( "[LIST2,LINE1]" );
  l2->Add( "[LIST2,LINE2]" );
  l2->Add( "[LIST2,LINE3]" );
//[...]
  TObjectList *listSL = new TObjectList(true);
  listSL->Add( l1 );
  listSL->Add( l2 ) ;
//[...]
  TStringList *tmp = (TStringList*) listSL->Items[0] ;//récupération de la 1ère liste
  ShowMessage( tmp->Strings[0] ) ;// affiche "[LIST1,LINE1]"
 
  tmp = (TStringList*) listSL->Items[1] ;//récupération de la 2ème liste
  ShowMessage( tmp->Strings[2] ) ;// affiche "[LIST2,LINE3]"
//[...]
  delete listSL;

En écrivant quelques fonctions de manipulation, l'utilisation deviendra assez facile.