Discussion :

[dennler]

Bonjour,
Je désire effectuer une succession de tris (max 3) sur les colonnes d'un composant TStringGrid comme le font les tableurs.
Exemple : Classer en ordre croissant le champ_X si égalité ordre décroissant sur le champ_Y ....
Je commence par le dernier tri, puis avant dernier pour terminer avec le premier.
Qu'elle méthode de tri permet d'enchaîner les tris sans désorganiser totalement les résutats intermédiaires ou faut-il obligatoirement concaténer les informations (string, numrique, date...pas simple!!!) .
D'avance merci

[Aka Guymelef]

Haa les tris. Bon plutôt que de se perdre dans des algos compliqués moi j'aurai plutôt tendance à prendre la solution de fainéantise soit passer par un DataSet. Le DataSet possède une propriété IndexFieldName qui permet d'indexer les résultats, en spécifiant les trois champs (séparés par des ';') tes données seront déjà triées pour l'affichage. Alors après c'est vrai qu'il ne faut plus utiliser une TStringGrid mais une TDBGrid et peut-être que ça ne correspond pas à ce que tu veux faire.

[dennler]

Non justement pour 2 raisons :
- pour mieux comprendre l'enchaînement des méthodes de tris
La documentation sur les méthodes de tris ( rapidité, occupation..) est abondante sur internet mais j'ai rien trouvé sur l'enchaînement.
- mon programme tourne entièrement autour du composant TstringGrid pour des raisons pédagogiques.

[sjrd]

La technique la plus simple, mais pas vraiment la plus efficace, est d'enchaîner 3 tris bulle (ou 3 tris plomb), en commençant par le 3ème critère (celui qui est utilisé s'il y a égalité entre pour les deux autres), puis le 2ème, et enfin le 1er. Un petit essai à la main te convaincra facilement que ça fonctionne.

Mais en fait, la bonne façon de faire, c'est de définir une fonction Compare qui prend les deux record en entrée, et fournit -1, 0 ou 1 suivant ton test :

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
function Compare(const Rec1, Rec2: TMonRecord): Integer;
begin
  if Rec1.Critere1 < Rec2.Critere1 then
    Result := -1
  else if Rec1.Critere1 > Rec2.Critere1 then
    Result := 1
  else if Rec1.Critere2 < Rec2.Critere2 then
    Result := -1
  else if Rec1.Critere2 > Rec2.Critere2 then
    Result := 1
  else if Rec1.Critere3 < Rec2.Critere3 then
    Result := -1
  else if Rec1.Critere3 > Rec2.Critere3 then
     Result := 1
  else
    Result := 0;
end;

Et d'utiliser cette routine comme argument d'un CustomSort.

[dennler]

Sauf erreur de ma part CustomSort utilise une méthode qui permet pas de garder le bénéfice du tri précédent.
Je vais tester la méthode bulle

[sjrd]

Sauf erreur de ma part CustomSort utilise une méthode qui permet pas de garder le bénéfice du tri précédent.

Bien entendu, mais avec une routine de comparaison telle que j'ai donné, tu ne dois faire qu'un tri