Discussion :

[bvsud]

Bonsoir à tous

Comment récupérer l'item pointé ?
Quelle méthode de TStringList ?
J'ai oublié ...

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
25
26
27
28
29
30
 
 
procedure TForm1.Btn_1Click(Sender: TObject);
Var
  Lst : TStringList;
  i : integer;
 
begin
 
  Lst := TStringList.Create;
 
  Lst.Add('A');
  Lst.Add('B');
  Lst.Add('C');
  Lst.Add('D');
  Lst.Add('E');
  Lst.Add('F');
  Lst.Add('G');
 
  Lst.Free;
 
  for i := 0 to Lst.Count -1 do
    begin
      // Traiment si l'item 'D' est pointe ?
// Pas avec Lst.Strings[i] // Là, je peux
// Je veux savoir comment 
 
    end;
 
end;

Exemple :

Code :

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

1
2
3
 
      A_Text := ExtractFileName(Lst_Rep_Roaming[i]);
      B_SubText := ExtractFileName(Lst_F_A_Chercher.Strings[LEQUEL ?]); 	// J'en vise un que je veux désigner

Je ne sais pas si je me fais bien comprendre...
Avec les ListBox, on a un ItemIndex. Pas là...

Merci.

[der§en]

IndexOf() ?

Sinon, quand je vois ta ligne 20, je ne pense pas que ton code vas fonctionner si tu libérer ta stringlist avant de vouloir l’utiliser…

[XeGregory]

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
var
  Liste: TStringList;
  i: Integer;
begin
  Liste := TStringList.Create;
  try
    Liste.Add('Pomme');
    Liste.Add('Banane');
    Liste.Add('Cerise');
 
    for i := 0 to Liste.Count - 1 do
      ShowMessage(Liste.Strings[i]); // ou Liste[i]
  finally
    Liste.Free;
  end;
end;

Code :

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

1
2
3
4
5
6
7
var
  idx: Integer;
begin
  idx := Liste.IndexOf('Banane');
  if idx <> -1 then
    ShowMessage(Liste[idx]);
end;

[fred1599]

Hello,

Votre confusion est normale. Le TStringList n'a pas d'ItemIndex car c'est un conteneur de données (un Modèle), pas un composant visuel (une Vue) comme le TListBox. L'ItemIndex représente ce que l'utilisateur a sélectionné à l'écran, un concept qui n'existe pas pour une liste de données non visuelle.

Votre question « comment récupérer l'item pointé » a deux solutions, comme les intervenants l'ont indiqué :

1. Si « pointer » signifie « accéder à l'item à la position 'i' (l'indice) » : Utilisez simplement la propriété par défaut MaListe[i]. C'est ce que XeGregory a montré. Dans votre boucle for, 'i' est votre « pointeur » actuel.

2. Si « pointer » signifie « trouver la position de l'item qui contient 'D' (la valeur) » : Utilisez la méthode IndexOf, comme der§en et XeGregory l'ont suggéré. Syntaxe :

Code :

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

idx := Lst.IndexOf('D');

. Cette méthode renvoie l'indice de l'item, ou -1 s'il n'est pas trouvé. Vous devez donc toujours vérifier le résultat :

Code :

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

if idx <> -1 then ....

.
Enfin, comme l'a très bien vu der§en, vous libérez votre liste (Lst.Free) avant de l'utiliser dans la boucle, ce qui provoquera une erreur. Vous devez libérer la liste à la fin, idéalement dans un bloc try...finally, comme le montre XeGregory.

[bvsud]

Bonjour

Je regarde ça.
Mais je me suis mal fait comprendre.

Je donne le retour.

[tourlourou]

Bonjour,
La méthode AddObject(const S: string; AObject: TObject) du TStringList permet d'associer à chaque chaîne ajoutée un objet que l'on pourra retrouver ainsi :

Code :

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

1
2
3
4
5
6
7
8
with MaListe
do begin
  i := IndexOf('MaChaine');
  if i < 0 then
    MonObjet := nil
  else 
    MonObjet := Objects[i];
end;

[Jipété]

Bonjour, Yves,

... permet d'associer à chaque chaîne ajoutée un objet que l'on pourra retrouver ainsi : ...

T'es sûr de ton coup, là ? Moi j'aurais plutôt écrit

... permet d'associer à chaque chaîne un objet ajouté que l'on pourra retrouver ainsi : ...

Non ?

[fred1599]

Le terme "associer" n'est pas clair, pour être précis, il faudrait dire :

La méthode AddObject garantit l'association positionnelle entre une instance de chaîne et un objet, assurant l'intégrité de cette paire logique via son index.

Il est recommandé d'utiliser TStringList.AddObject uniquement lorsque :

• Le maintien de l'ordre d'insertion ou la nécessité d'utiliser des fonctionnalités de manipulation de texte intégrées (comme la propriété Text ou le chargement/sauvegarde de fichiers) est primordial.
• Les chaînes sont garanties uniques (soit parce que le contexte l'impose, soit parce que Sorted = True et Duplicates = dupError ou dupIgnore sont configurés).
• La taille de la liste est petite et les performances de recherche en O(n) ne sont pas un goulot d'étranglement.

[tourlourou]

Non ?

Non...
Salut Jean-Pierre !
Ça permet plutôt d'associer simultanément un objet à une chaîne lors de l'ajout de cette dernière. Avec les réserves de fred1599.
On peut toujours associer ultérieurement un objet à une chaîne grâce à Objects.
Après, on peut le voir et l'exprimer différemment, mais c'est ma manière de voir (logique interne buggée ?)

[Andnotor]

Je relis la question et me demande le rapport avec AddObject

Ces recommandations me laissent aussi perplexe.
Ce n'est certainement pas la meilleure façon de traiter un texte, cette remarque associe trop étroitement une TStringList à un TMemo.
Une TStringList peut contenir un gros volume de données mais si la performance de recherche est un critère, on utiliserait plutôt une THashStringList.

[tourlourou]

Comment récupérer l'item pointé ?

Je regarde ça.
Mais je me suis mal fait comprendre.

Bonjour,
Le rapport est là, avec une bonne dose de boule de cristal, au risque du hors-sujet !

[Charly910]

Bonjour,

ben Fred1599 a donné la solution : il n'y a pas d'item pointé pour un TStringList

A+
Charly