Question sur TStringList

Version imprimable

Bonsoir à tous :)

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

Code:

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:

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.

06/11/2025, 22h17
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…

Code:

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:

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

07/11/2025, 09h30
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:

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:

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.
07/11/2025, 09h36
bvsud

Bonjour ;)

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

Je donne le retour.