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.