Discussion :

[sematimo]

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]

Bonjour,

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

[sematimo]

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]

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]

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]

Bonjour

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]

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

[BeanzMaster]

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

[ChPr]

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

[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

[sematimo]

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é]

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]

Bonjour,

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é]

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]

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é]

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

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

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

[sematimo]

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 :

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

[e-ric]

Salut

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

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

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 ?

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.

[ovni76]

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+