Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans un TStringGrid, j'ai 4 lignes de 7 colonnes. Une des colonnes représente des valeurs numériques.

Lorsque je fais un tri (en cliquant sur la ligne fixe) basé sur la colonne représentant des nombres, j'obtiens les résultats suivants :

Dans un sens :

550
500
1200
1050

et dans l'autre :

1050
1200
500
550

Moi pas comprendre

et vous ?

Y a-t-il un moyen d'utiliser un autre type de comparaison que celui par défaut ? Je l'avais fait pour un TDrawGrid, mais apparemment, je n'arrive pas à l'appliquer au TStringGrid.

Cordialement.

Pierre.

[tourlourou]

Bonjour,
Une StringGrid contient des chaînes, et le tri de base se fonde sur leur valeur ASCII.
Il faut ici lui demander de trier la colonne en lui fournissant la procédure de comparaison adaptéee, style MyGrid.Columns[i].Sort(MySortCallBack) avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
function MySortCallBack(item1, item2: string): integer;
begin
  Result := item1.ToInteger - item2.ToInteger;
  // if MySens = msDesc then Result := -Result;
end;

[ChPr]

Bonjour,
Une StringGrid contient des chaînes, et le tri de base se fonde sur leur valeur ASCII.
Il faut ici lui demander de trier la colonne en lui fournissant la procédure de comparaison adaptéee, style MyGrid.Columns[i].Sort(MySortCallBack) avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
function MySortCallBack(item1, item2: string): integer;
begin
  Result := item1.ToInteger - item2.ToInteger;
  // if MySens = msDesc then Result := -Result;
end;

Merci tourlourou pour cette proposition. Pour autant, "MyGrid.Columns[i]", si MyGrid est du type TStringGrid, ne possède pas de fonction "Sort" (c'est "TStringList" qui en possède une) et je ne vois pas où introduite la fonction Callback.

Cordialement.

Pierre.

[tourlourou]

Exact, désolé...

En fait, il y a un autre mécanisme prévu :

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
procedure TForm1.MyCompareCells(Sender: TObject; ACol, ARow, BCol,BRow: Integer; var Result: integer);
begin
  with TStringGrid(Sender) do
    Result := Cells[ACol, ARow].ToInteger - Cells[BCol, BRow].ToInteger;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Last = 10;
var
  i: integer;
begin
  Randomize;
  StringGrid1.ColCount := 2;
  StringGrid1.RowCount := Last;
  for i := 0 to Last-1 do begin
    StringGrid1.Cells[0, i] := (Random(100)+1).ToString;
    StringGrid1.Cells[1, i] := StringGrid1.Cells[0, i];
  end;
  StringGrid1.OnCompareCells := @MyCompareCells;
  StringGrid1.SortColRow(True, 1);
end;

Seul problème : il doit trier les chaînes pointées, et comme identiques, il ordonne les 2 colonnes !
Ce qu'il ne fait pas avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  i, j: integer;
begin
  Randomize;
  StringGrid1.ColCount := 2;
  StringGrid1.RowCount := Last;
  for i := 0 to Last-1 do begin
    j := Random(100)+1;
    StringGrid1.Cells[0, i] := j.ToString;
    j := Random(100)+1;
    StringGrid1.Cells[1, i] := j.ToString;
  end;

Ou alors, j'ai encore mal compris quelque chose

[ChPr]

...

Je ne sais pas si ce que tu me proposes va résoudre mon problème car il met en jeu deux colonnes. Il est certainement possibles de l'étendre à plusieurs colonnes ...

En effet, sur la base des valeurs (numériques ou alphanumériques) d'une seule colonne, il faut que ce soit les lignes entières qui soient réordonnées.

J'ai trouvé cette procédure sur la toile (je ne sais plus où), que j'ai mise à mon goût et qui remplit la tâche :

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
procedure TLesArticles.ListingHeaderClick(Sender: TObject; IsColumn: Boolean;
  Index: Integer);
var
  x, y, z: Integer;
  tmpstr: string;
begin
  if (Index = 0) or (Index = 2) then             {Tri sur N° ordre et sur Prix}
    with Listing do
    begin
      for x:= 1 to RowCount-1 do
        for y:= 1 to RowCount-x-1 do
          if ((SortOrder = soDescending) and (strtoFloat(Cells[Index, y]) > strtoFloat(Cells[Index, y+1])))
          or ((SortOrder = soAscending) and (strtoFloat(Cells[Index, y+1]) > strtoFloat(Cells[Index, y]))) then
            for z:= 0 to ColCount-1 do // Toutes les colonnes sont réordonnées
            begin
              tmpstr:= Cells[z, y];
              Cells[z, y]:= Cells[z, y+1];
              Cells[z, y+1]:= tmpstr;
            end;
    end;
end;

Cette procédure est appelée en cliquant sur la ligne fixe (où j'ai mis mes titres) et la colonne souhaitée. Dans mon cas, seules les colonnes 0 et 2 sont des valeurs numériques.

Si je clique sur les en-têtes des colonnes alphanumériques, cette procédure n'est pas exécutée et le tri est fait selon la protocole interne au TStringGrid.

Ce que je suppose est que lorsque je clique sur une colonne à valeurs numériques, le protocole interne est exécuté, mais suivi du mien qui remet les choses comme je le souhaite.

Cordialement.

Pierre.