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

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:

---

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;

---

Bonjour,

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

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

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 :zoubi:

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+

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

Bonjour

Citation:

---

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

bonjour

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

Code:

---

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

Salut regardes mon dernier messages ;) Ca ne sert à rien de vouloir réécrire la procedure de tri. Le stringgrid contient déja une méthode de tri utilisant l'algorithme "QuickSort" si tu veux personnaliser ton tri en fonction des données, il faut passer par "OnCompareCells". De plus ta méthode ne peut pas fonctionner car tu fait des comparaisons comme si c'était des nombres alors que se sont des chaines de caractères. Donc soit tu convertis tes chaines en nombres soit tu compares tes chaines avec CompareText ou CompareStr De plus assigner Rows[].text comme tu les fait ne fonctionnera pas.

A+

Jérôme

Citation:

---

Envoyé par BeanzMaster

... il faut utiliser la méthode SortColRow dans le code ...

---

J'avais cherché une telle méthode, mais je ne l'avais pas trouvé ; je ne sais pas chercher !

Cette méthode devrait résoudre le problème de "sematimo" car en plus d'être on ne peut plus simple, c'est un "tri rapide".

Cordialement.

Pierre.

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à, :cry:

/HS

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

Citation:

---

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

---

Citation:

---

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…

Bonjour,

Citation:

---

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à, :cry:

/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. :mouarf:

Citation:

---

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. :mouarf:

---

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…

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...

Citation:

---

Envoyé par sematimo

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

---

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

Citation:

---

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à.

Bonjour

Dans mon activité, je suis amené à consulter nombre de CV et SMS, si je devais tenir compte de l'orthographe et grammaire, je ne retiendrais aucune candidature.
Pour ma part, je n'utilise pratiquement plus le stylo-bile, préfèrant dicter à mon smartphone, ma tablette ou ordinateur.
Cette pratique se généralisant, d'ici une décennie voir moins, l'écriture manuscrite aura disparue, aussi la défense de la langue française est un cause perdue d'avance,
Il faut s'adapter.

Pour en revenir au sujet de ce forum, je vous livre la dernière mouture de mon code concernant le tri. Après de multiples essais, cette dernière fonctionne parfaitement avec près de 7500 lignes et 23 colonnes.

Code:

---

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 43 44 45 46 47 48

procedure TForm1.Button2Click(Sender: TObject); begin TriRapide(1, stringgrid1.RowCount - 1); 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 AnsiCompareText(Cells[0, i], pivot) >= 0;   repeat j := j - 1 until AnsiCompareText(Cells[0, j], pivot) <= 0; 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 à tous
bonne journée

Salut

Je me sens obligé de réagir...

Citation:

---

Envoyé par sematimo

Dans mon activité, je suis amené à consulter nombre de CV et SMS, si je devais tenir compte de l'orthographe et grammaire, je ne retiendrais aucune candidature.

---

Le niveau baisse d'une façon générale et pas qu'en orthographe malheureusement, passons pour les SMS car la concision y est importante et on ne cherche à communiquer des idées complexes. Certaines ESN a une époque avaient remis la maîtrise du français à l'ordre du jour, je ne sais si c'est encore d'actualité. Le problème c'est que l'expression perd en précision avec les conséquences que cela peut avoir. On va parfois des messages sur les forums qui sont incompréhensibles même phonétiquement. Si ces personnes codent comme elles s'expriment cela doit faire de beaux programmes...

Citation:

---

Envoyé par sematimo

Pour ma part, je n'utilise pratiquement plus le stylo-bile, préfèrant dicter à mon smartphone, ma tablette ou ordinateur.
Cette pratique se généralisant, d'ici une décennie voir moins, l'écriture manuscrite aura disparue, aussi la défense de la langue française est un cause perdue d'avance,
Il faut s'adapter.

---

Ce n'est pas de l'adaptation c'est de la démission, on tue des cultures comme cela.
Stylo-bile est un terme qui me plaît bien, à reprendre dans un autre contexte, perso j'utilise encore un stylo-plume, ça marche très bien et ne consomme pas trop de plastique. Bien des personnes que je connais n'ont à rien à faire de ces gadgets technologiques et ils n'en vivent pas plus mal.
La disparition de l'écriture manuscrite n'est sans doute pas pour demain, elle, au moins, ne nécessite pas d'électricité.
Quant à la cause perdue, mieux vaut s'exprimer des idées claires dans un français correct que dans un globish dont la précision et la clarté laissent à désirer. Et si c'est une cause perdue, pourquoi dès lors venir chercher des renseignements sur un forum francophone ?

Citation:

---

Envoyé par sematimo

Pour en revenir au sujet de ce forum, je vous livre la dernière mouture de mon code concernant le tri. Après de multiples essais, cette dernière fonctionne parfaitement avec près de 7500 lignes et 23 colonnes.

---

C'est l'essentiel, ton problème est résolu.

Bonjour,
Il est vrai que l'écriture devient pour certains une technologie dépassée mais pour les personnes contre l'écriture en bon français ou autres langues ils oublient que l'écriture est presque aussi vieille que le monde il suffit de voir les dessins dans les grottes c'était déjà une forme d'expression écrite. Alors les outils informatiques n'auront pas le même succès.
A+