Discussion :

[Sergio29]

Salut,

J'utilise une ListView en mode vsReport. Elle comporte 9 colonnes. Je voudrais tester la présence du contenu des colonnes lorsque l'on sélectionne une ligne.

Donc voici mon code :

Code :

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

1
2
3
4
5
procedure Bt1Click(Sender: TObject);
begin
       if ListView.Selected.Subitems[8] <> '' then ShowMessage(ListView.Selected.Subitems[8])
       else ShowMessage('Rien...');
end;

Dès que je clique sur le bouton pour lancer cette procédure, j'ai un message d'erreur : "Project xxx raised exception class EStringListError with message 'List index out of bounds (8)'..."

Cependant, en testant la 5ième colonne par exemple, cela marche parfaitement. Une idée ?

[CapJack]

Oui.

Ce n'est pas parce que le TListView a 9 colonnes déclarées, que les listes SubItems auront d'office 8 éléments... en fait, les listes SubItems sont vides par défaut, donc toute lecture déclenchera une erreur. C'est une sale blague dont j'ai moi-même été victime.

Alors, soit tu ajoutes systématiquement 8 chaînes vides à la propriété SubItems à chaque fois que tu ajoutes une ligne, soit tu gère l'exception, soit tu modifies un peu ton code en :

Code :

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

1
2
3
if ( ListView.Selected.Subitems.Count > 8 ) and ( ListView.Selected.Subitems[8] <> '' )
   then ShowMessage(ListView.Selected.Subitems[8])
   else ShowMessage('Rien...');

Par ailleurs, même le code que je te donne la est douteux, car les Subitems s'affichent à partir de la deuxième colonne !!! Autrement dit, si tu as 9 colonnes, l'indice maximal d'un SubItem visible sera de 7 = Colonne - 1 colonne - 1 (indice de base zéro).

D'ailleurs, il est possible, à l'inverse, d'avoir plus de SubItems que seulement ceux visibles. C'est pratique pour associer des informations cachées à des lignes dont l'ordre est susceptible de changer...

[Sergio29]

Merci... Je crois bien que je vais les remplir avec des chaînes vides. Je viens de faire un test et ça l'air ok.