Quelle est la meilleure méthode de tri pour StringGrid ?

**sematimo** · 14/06/2020, 14h12

Bonjour

j'ai un StringGrid avec plus de 7000 lignes, quelle est la meilleure méthode pour effectuer un tri en se basant sur la colonne 1 ?

Quelqu'un a-t-il déja utilisé la méthode de tri pivot sur un StringGrid ?

Voici le code que j'utilise mais c'est très très lent...

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
Var i,j:Integer;
S:String;
 
  Begin
  With StringGrid1 Do
  Begin
  For i:=1 to RowCount-1 Do
  For j:=i+1 To RowCount-1 Do
  begin
 if AnsiCompareText(Cells[0, i], Cells[0, j]) > 0 then   
  Begin
  S := StringGrid1.Rows[i].Text;
  Rows[i].Text := Rows[j].Text;
  Rows[j].Text := S;
  End;
  end;
  End;
  showmessage('terminé...');
  End;

**droggo** · 14/06/2020, 14h40

Bonjour,

Tu n'as pas dû chercher longtemps, donc continue les recherches.

**sematimo** · 14/06/2020, 15h40

j'ai bien fais plusieurs recherches sur le tri pivot mais elles s'appliquent presque toutes à des tableaux sous delphi et j'ai du mal à l'adapter à un StringGrid sous lazarus

**BeanzMaster** · 14/06/2020, 17h02

Salut les méthodes de tris ne manquent pas, le tri par pivot comme tu le mentionnes n'est certainement pas le plus adapté et rapide pour 7000 données fais des recherche sur le "QuickSort" / "DualPivot QuickSort", "Merge sort" tu devrais avoir plein de résultats

https://www.ljll.math.upmc.fr/pegon/...BCPST/TP07.pdf
https://castelain.developpez.com/sources/TriStringGrid/
https://www.developpez.net/forums/d1...e-tstringgrid/

A+

**ChPr** · 14/06/2020, 21h11

Bonsoir à toutes et à tos,

Je me greffe honteusement sur cette discussion.

Le composant TStringGrid a une propriété "ColumnClickSorts" qui, lorsqu'on la met à "Vrai", place une petite flèche dans le haut des colonnes et qui, lorsqu'on clique dessus, s'inverse. Pour autant, aucun tri ne s'effectue. Je n'ai pas trouvé ce qu'il fallait faire pour que le tri s'effectue.

Cordialement.

Pierre

**BeanzMaster** · 15/06/2020, 09h07

Bonjour

Envoyé par ChPr

Bonsoir à toutes et à tos,

Je me greffe honteusement sur cette discussion.

Le composant TStringGrid a une propriété "ColumnClickSorts" qui, lorsqu'on la met à "Vrai", place une petite flèche dans le haut des colonnes et qui, lorsqu'on clique dessus, s'inverse. Pour autant, aucun tri ne s'effectue. Je n'ai pas trouvé ce qu'il fallait faire pour que le tri s'effectue.

Cordialement.

Pierre

il faut utiliser la méthode SortColRow dans le code

PS : Avec "ColumnClickSorts" je crois que cela fonctionne uniquement si ce sont des chaines de caractères. A voir "OnCompareCells"

A+

Jérôme

**sematimo** · 15/06/2020, 09h44

bonjour

voila mon code que j'essaie d'adapter à mon StringGrid, mais ça ne fonctionne pas, ou est la ou les erreurs?

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
procedure TForm1.Button2Click(Sender: TObject);
begin
       TriRapide(1,stringgrid1.RowCount-2);
end;
 
Function TriPartition (Grid1: TStringGrid; premier , dernier : integer):integer ;
   var
     i : integer;
       j : Integer;
       pivot, temp  : string;
 
  begin
    with Grid1 do
begin
     i := premier-1;
     j := dernier;
     pivot := cells[0,dernier];
 
     repeat
         repeat i := i+1 until Cells[0,i] >= pivot;
         repeat j := j-1 until Cells[0,j] <= pivot;
         temp :=rows[i].text;
         rows[i].text :=rows[j].text;
         rows[j].text :=temp;
     until j <= i;
     rows[j].text := rows[i].text;
     rows[i].text := rows[dernier].text;
     rows[dernier].text := temp;
    result := i;
end;
    end;
 
procedure TForm1.TriRapide( premier, dernier : integer);
var i: Integer;
begin
   if dernier>premier then
   begin
     i := TriPartition(StringGrid1, premier , dernier );
     TriRapide( premier , i-1 );
     TriRapide( i+1 , dernier );
   end
end;

merci

**Jipété** · 15/06/2020, 11h45

HS

Bonjour,

en parlant de méthode, il n'y aurait pas quelqu'un pour, dans le titre, remplacer "quel est la meilleur" par "Quelle est la meilleure" ?
Le plus fou c'est que dans le texte du post c'est correct !
Bon, il reste deux jours à l'auteur pour éditer son titre.

Merci beaucoup car ça me tue les yeux à chaque fois que je passe là,

/HS

**sematimo** · 15/06/2020, 13h17

j'avais utilisé sortcolrow mais se n'est pas marrant...
moi j'aime savoir comment ça fonctionne, et le meilleur moyen est de faire et refaire...
dans mon 1er code j'utilisais la comparaison AnsiCompareText, et dans le second j'aurais du mais je l'ai complètement oublié.

pour le puriste de l'orthographe, les fautes de frappe ça arrivent , la faute aux sms, et je m'en f.. complètement

merci à tous

**Jipété** · 15/06/2020, 14h17

Envoyé par sematimo

pour le puriste de l'orthographe, les fautes de frappe ça arrivent , la faute aux sms, et je m'en f.. complètement

L'utilisation du langage SMS […] est proscrite sur le forum.
Les messages écrits en langage SMS seront, selon le cas, édités ou supprimés.

source

Et donc tu te fous de ceux qui te lisent et subissent tes négligences. On ne t'en remerciera pas, et on en prend bonne note pour la suite…

**droggo** · 15/06/2020, 16h47

Bonjour,

Envoyé par Jipété

HS

Bonjour,

en parlant de méthode, il n'y aurait pas quelqu'un pour, dans le titre, remplacer "quel est la meilleur" par "Quelle est la meilleure" ?
Le plus fou c'est que dans le texte du post c'est correct !
Bon, il reste deux jours à l'auteur pour éditer son titre.

Merci beaucoup car ça me tue les yeux à chaque fois que je passe là,

/HS

On est au moins deux dans ce cas, mais je ne le signale plus, sinon il me faudrait beaucoup d'argent pour remplacer régulièrement mon clavier pour cause d'usure.

**Jipété** · 15/06/2020, 17h27

Envoyé par droggo

Bonjour,

On est au moins deux dans ce cas, mais je ne le signale plus, sinon il me faudrait beaucoup d'argent pour remplacer régulièrement mon clavier pour cause d'usure.

Je pense qu'on est plus de deux, mais moi je l'ouvre, histoire d'essayer de préserver la culture car, quand les vieux ne seront plus là, ils seront comme des céohaines, les djeun's, avec leurs sms, à ne plus se comprendre.
Et ça ne va aller qu'en empirant, si personne n'essaie de redresser la barre, exemple : merci à celui qui a corrigé l'une des deux fautes, dommage qu'il ait oublié l'autre, alors que j'avais bien indiqué les deux. C'est fou, des trucs pareils…

**sematimo** · 15/06/2020, 18h13

il faut vivre avec son temps. le français n'est pas une langue morte, elle doit évoluer constamment, et que font les jeunes?, ils la simplifie, l'adapte à la technologie, aux nouvelles habitudes, aux réseaux sociaux, etc.
Au fait, j'ai corrigé l'autre faute...

**Jipété** · 15/06/2020, 20h00

Envoyé par sematimo

Au fait, j'ai corrigé l'autre faute...

Merci

Et, as-tu remarqué que ton titre est plus joli ainsi ?

Envoyé par sematimo

il faut vivre avec son temps. le français n'est pas une langue morte, elle doit évoluer constamment, et que font les jeunes?, ils la simplifient, l'adaptent à la technologie, aux nouvelles habitudes, aux réseaux sociaux, etc.

Mais là je ne suis pas d'accord (et je crois même que c'est une excuse pour cacher... les taches ou les tâches ? Tu vois bien que ça a son importance. D'ailleurs, tu préfères une amende ou une amande ?)
Bon, ça n'est pas le sujet, alors brisons là.

Quelle est la meilleure méthode de tri pour StringGrid ?

Lazarus Pascal

Vue hybride

Discussions similaires

Partager

Partager