ListView et CustomSort [Delphi] - Programmation
Marsh Posté le 22-07-2001 à 00:48:26
ben moi j'ai ca dans l'aide :
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := -lstrcmp(PChar(TListItem(Item1).Caption),
PChar(TListItem(Item2).Caption));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.CustomSort(@CustomSortProc, 0);
end;
la grande difference c'est :
procedure TMain.customsortproc
au lieu de :
procedure customsortproc
Ca marche peut etre avec ta version a condition de faire l'appel
Listtxt.customsort(@TMain.customSortProc, ...)
Marsh Posté le 22-07-2001 à 12:01:22
En effet il faut une fonction à part et non pas une méthode d'un objet !
[edtdd]--Message édité par antp--[/edtdd]
Marsh Posté le 22-07-2001 à 18:54:21
Pour la fonction, je savais étant donné que je l'ai implémenté, j'ai essayé aussi sans la dépendance (CustomSortProc au lieu de TMain.CustomSortProc) mais ketket branlette balayette...
Bon ben, je retourne à mes recherches...
Merci quand même!
[edtdd]--Message édité par Bendes--[/edtdd]
Marsh Posté le 22-07-2001 à 20:01:41
je suis pas sûr que le @ soit nécessaire...
Marsh Posté le 22-07-2001 à 20:22:07
si tu peux changer de composants, jette un oeil au TdfsEnhListView ou au TdfsExtListView dispos sur http://www.delphifreestuff.com .
Marsh Posté le 21-07-2001 à 18:19:28
V'là mon code pour trier une ListView par ordre décroissant sur le clic d'une colonne (tirer de l'aide Delphi...)
Le function "CustomSortProc" est déclarée private et il me met l'erreur sur "@CustomSortProc" en disant "Variable requise" ?!?!
Si quelqu'un sait m'aider...