Discussion :

[Sixpounder]

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.

[getz85]

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 :

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 :

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

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é...

[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.

[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.

[Sixpounder]

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 au lieu de 18:A9:05:B2:C6:4D).

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
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.

[Sixpounder]

Je pense avoir trouvé une solution. Je test.