Trier une TListview

Version imprimable

16/11/2010, 14h07
Sixpounder

Trier une TListview

Bonjour à tous,

J'aimerai pouvoir filtrer une TlistView composée de 4 colonnes. Mais je ne comprends pas comment marche l'événement OnCompare même après avoir lu certains topics appropriés et l'aide de BCB. Si quelqu'un pouvait m'expliquer le fonctionnement je lui serait très reconnaissant.

PS : le filtre se fait à partir de ma colonne 3.

Bonjour,

C'est vrai que l'évènement OnCompare est un peu "spécial" à utiliser.
L'aide de C++ builder aurait pu t'aider cependant, surtout ceci :

Citation:

Le gestionnaire d'événement OnCompare compare les éléments de la liste transmis dans les paramètres Item1 et Item2. Si Item1 est identique à Item2 dans l'ordre de tri, affectez la valeur 0 au paramètre Compare. Si Item1 est inférieur à Item2, affectez une valeur négative au paramètre Compare. Si Item1 est supérieur à Item2, affectez une valeur supérieure à zéro au paramètre Compare.

Les Item1 et Item2 contiennent deux lignes de ton listView. Il faut comparer ceux-ci selon leur type de données, et affecter la valeur de Compare par un entier selon celui qui est supérieur à l'autre.

Un exemple de comparaison en utilisant la fonction CompareText de SysUtils :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 void __fastcall TForm1::LVCompare(TObject *Sender, TListItem *Item1, TListItem *Item2, int Data, int &Compare) { //Si la colonne n'a pas été cliqué, tri descendant, sinon tri ascendant if (tri) { Compare = CompareText(Item1->Caption, Item2->Caption); } else { Compare = CompareText(Item2->Caption, Item1->Caption); } }
Dans cet exemple, on trie de façon alphanumériques ces données (sous forme de UnicodeString) selon le tri choisi (le booléen tri est modifié lors du clic sur l'entête de colonne, pour avoir le tri dans les deux sens).

Indiquer au ListView comment comparer deux items de la liste va lui permettre de trier tout la liste.

J'espère t'avoir un peu éclairé...

19/11/2010, 09h27
Sixpounder

D'accord je voie un peut le concept cependant si je veut pouvoir filtrer des doublons je doit donc Indiquer au ListView comment faire afin de trier la liste ?

Ou existe t-il une fonction ou un événement pour générer cela ?

Merci.
19/11/2010, 10h54
getz85

Je n'ai jamais fait de détection de doublons dans une listView, mais je pense que tu peux gérer ça dans le OnCompare en testant la valeur Compare une fois celle-ci attribuée.

Si elle est égale à 0, je pense que tu peux supprimer l'un des items de la liste.

Actuellement je procède de cette façon mais le résultat n'y es pas.
j'ai un problème avec mon adresse mac qui ne prends pas une valeur correcte ( manque un caractère => 18:A9:05:B2:C6:D au lieu de 18:A9:05:B2:C6:4D).

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
void __fastcall TForm1::Button2Click(TObject *Sender)
{
test->Clear();
TListItem *item;
TStringList *sl = new TStringList();
sl->LoadFromFile( "test.txt" );
char *date;
char *ip;
char *mac;
int nb = test->Items->Count;
int nbdoublons = 0;


for( int i=0; i < sl->Count; i++ )   
{
	if (test->Items->Count ==0) {   
		item = test->Items->Add();
		AnsiString l= sl->Strings[i];
		date = strtok(l.c_str(), ";");
		item->Caption = date;
		ip = strtok(NULL, ";");
		item->SubItems->Add(ip);
		mac = strtok(NULL, ";");
		item->SubItems->Add(mac);
		nb++;

	}
	else 
	{
		for(int k=0; k < nb ; k++)
		{
			TListItem *Item = test->Items->Item[k] ;
			ShowMessage(mac); // => 18:A9:05:B2:C6:D au lieu de 18:A9:05:B2:C6:4D
			AnsiString  NumListe =Item->SubItems->Strings[1];  // adresse mac : 18:A9:05:B2:C6:4D
			if (mac == NumListe)
			{
				int nbdoublons = nbdoublons++;
			}
			else
			{
				item = test->Items->Add();
				AnsiString l= sl->Strings[i];
				date = strtok(l.c_str(), ";");
				item->Caption = date;
				ip = strtok(NULL, ";");
				item->SubItems->Add(ip);
				mac = strtok(NULL, ";");
				item->SubItems->Add(mac);
			}
		}
	}
}
delete sl ;
}

Alors soit j'essaie de perfectionner mon code soit j'essaye de me pencher sur le OnCompare.

19/11/2010, 15h11
Sixpounder

Je pense avoir trouvé une solution. Je test.

J'ai repris et modifier à ma sauce le code de Sunchaser sur ce lien afin de trier mes doublons : http://www.developpez.net/forums/d17...er-tlistitems/ cependant j'obtiens une ligne non désirable à la fin ( cf : image ). De plus lorsque le traitement devrait normalement être fini, certaines opérations continuent à tourner provoquant des exceptions.

[EDIT :] Pour faire plus simple comment comparer Item->SubItems->Strings[1] avec l'ensemble des éléments d'un tableau ?[/EDIT]

Voici le code :
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 31 32 33 34 35 void __fastcall TForm1::Button1Click(TObject *Sender) { TListItem *item; TStringList *sl = new TStringList(); sl->LoadFromFile( "text.txt" ); char *date; char *ip; char *mac; for( int i=0; i < sl->Count; i++ ) { item = ListView1->Items->Add(); AnsiString l= sl->Strings[i]; date = strtok(l.c_str(), ";"); item->Caption = date; ip = strtok(NULL, ";"); item->SubItems->Add(ip); mac = strtok(NULL, ";"); item->SubItems->Add(mac); } delete sl ; } //--------------------------------------------------------------------------- void __fastcall TForm1::ListView1CustomDrawItem(TCustomListView *Sender, TListItem *Item, TCustomDrawState State, bool &DefaultDraw) { TListItem *item; ShowMessage(Item->SubItems->Strings[1]); if (Item->SubItems->Strings[1].operator ==("20:A9:05:B2:C6:5D") ) { doublons = doublons++; ListView1->Items->Delete(Item->Index); } }
Le contenu de mon fichier text.txt :

Citation:

05/11/2010 11:50:28;192.168.2.10;20:A9:05:B2:C6:4D
05/11/2010 11:50:28;192.168.2.10;20:A9:05:B2:C6:5D
05/11/2010 11:50:28;192.168.2.10;20:A9:05:B2:C6:6D
05/11/2010 11:50:28;192.168.2.10;20:A9:05:B2:C6:7D
05/11/2010 11:50:28;192.168.2.10;20:A9:05:B2:C6:5D

Le résultat :

http://img254.imageshack.us/img254/3613/bugh.png