IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

Erreur tri sur TOBjectList


Sujet :

Langage Delphi

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2011
    Messages
    125
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 125
    Par défaut Erreur tri sur TOBjectList
    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

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2011
    Messages
    125
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 125
    Par défaut Mieux vait tourner 7 fois la langue dans sa bouche!
    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!

  3. #3
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 074
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 074
    Par défaut
    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
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2011
    Messages
    125
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 125
    Par défaut
    +1 Pour toi Shai ça doit effectivement être ça!
    Merci professeur,
    A bientôt!
    Michael

  5. #5
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 074
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 074
    Par défaut
    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;
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2011
    Messages
    125
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 125
    Par défaut
    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!

  7. #7
    Membre Expert Avatar de guillemouze
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    876
    Détails du profil
    Informations personnelles :
    Âge : 42
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2004
    Messages : 876
    Par défaut
    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);

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Tri sur array : erreur de script
    Par Zuthos dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 09/05/2011, 15h53
  2. Erreur 145 sur table mysql
    Par ramses83 dans le forum Requêtes
    Réponses: 1
    Dernier message: 06/09/2007, 21h09
  3. tri sur la xème colonne
    Par r-zo dans le forum Langage SQL
    Réponses: 5
    Dernier message: 23/07/2003, 13h41
  4. [VB6] [MSHFlexGrid] Tri sur clic dans la première ligne
    Par degreste dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 06/03/2003, 00h42
  5. [VB6] Erreur 9 sur redim preserve
    Par tomnie dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 22/10/2002, 17h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo