Discussion :

[MickSou]

Bonjour,
J'ai créée une classe ghéritant de TObjectList. Je veux la trier avec ma propore précodure de tri qui va regarder la date d'échéance des objets.

Code :

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

1
2
3
4
5
6
7
8
9
10
 function CompareDateEcheances(Item1, Item2: pointer): Integer;
  begin
    if (TLigneRemise(Item1).Echéance>=TLigneRemise(Item2).Echéance) then
      Result:=1
    else
      Result:=-1;
   // Result := ((Item1 as TLigneRemise).Echeance, (Item2 as TLigneRemise).Echeance);
  end;
 
    maRemise.Sort(@CompareDateEcheances);

Problème: j'ai une erreur de violation d'accès dans la fonction de comparaison... Il semble qu'il passe bien souvent dans cette fonction (plusiseurs fois meme alors qu'il n'a que deux éléments à trier).
Qu''est-ce qui m'échappe? Meri d'avance
Michael

[MickSou]

Code :

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

1
2
3
4
5
6
7
8
9
10
  function CompareDateEcheances(Item1, Item2: pointer): Integer;
  begin
    if (TLigneRemise(Item1).Echéance>TLigneRemise(Item2).Echéance) then
      Result:=1
    else
      if (TLigneRemise(Item1).Echéance<TLigneRemise(Item2).Echéance) then
        Result:=-1
      else
        Result:=0;
  end;

J'ai ajouté le cas où les dates sont égales et ça va maintenant nettement mieux: plus de violation d'accès...
Menfin je veux bien une explication quand même à l'occasion ;-)
Merci d'avance!

[ShaiLeTroll]

Une Explication de TListSortCompare ?

Code explication :

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

1
2
3
4
Valeur 	Description
> 0 (positive)    Item1 est supérieur à Item2.
0                 Item1 est égal à Item2
<0 (négative)     Item1 est inférieur à Item2

Si ta liste ne contenait pas de valeur en double, ton CompareDateEcheances aurait fonctionné !
Maintenant, si tu une égalité A1 = A2, dans la boucle, tu lui dit que l'élément est plus grand, il va permuter les valeurs et peut-être, quelques itérations plus tard, il va te demander une égalité A2 = A1, tu vas lui dire qu'il est plus grand (ben oui égal donc 1), il va encore permuter ... et cela doit tourner en rond puisque la comparaison entre A1 et A2 ne donne pas le même résultat selon l'ordre des paramètres
ça doit finir par exploser quelques choses dans l'algo Sort d'où la VA

[MickSou]

+1 Pour toi Shai ça doit effectivement être ça!
Merci professeur,
A bientôt!
Michael

[ShaiLeTroll]

A vérifier, mais cela n'a pas besoin d'être 1 ou -1, juste positif\negatif pour un TListSortCompare

Code :

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

1
2
3
4
function CompareDateEcheances(Item1, Item2: pointer): Integer;
begin
  Result:= TLigneRemise(Item1).Echéance - TLigneRemise(Item2).Echéance;
end;

[MickSou]

Je fais confiance à la puissance de calcul des processeurs du XX1ème siècle... C'est pas un drame si j'ai une ligne ou deux de plus ;-)
Le client pourra aller se boire un café pendant le tri en plus!
Merci quand meme!

[guillemouze]

tu peux aussi utiliser CompareValue, si tu veux avoir une précision moindre, ou si tes echeances sont des TDateTime (plutot qu'utiliser un Round / Trunc / ...). Par exemple, si tu veux comparer à la minute près, tu peux faire

Code :

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

Result := CompareValue(TLigneRemise(Item1).Echéance, TLigneRemise(Item2).Echéance, 1 / 24 / 60);