Bonsoir,
Je doit trier un stringgrid sur base d'une colonne contenant des nombres.
Voici mon code:
repeat
swap:=False;
for j := 1 to 100 do
if StrToInt(StringGrid2.Cells[11,j])> StrToInt(StringGrid2.Cells[11,j+1]) then
begin
tempstr:=StringGrid2.Rows[j];
StringGrid2.Rows[j] :=StringGrid2.Rows[j+1];
StringGrid2.Rows[j+1]:=tempstr;
swap:=true;
end;
until swap;
Malheureusement, nok et en plus des doublons
Je sêche!!!
Help
Salut tous,
C'est le rows[] qui déconne, mais le tri est bon. Essaye ca:
Pour cantador je vais mettre des balises, y va pa me filer des baffes quand même, j'en reçois déjà assez comme çà. Mais c'est la 1ere fois que je vois qu'il y a des balises. Je me demandais bien pourquoi les espaces à gauche de mon code n'apparaissait jamais.
procedure TForm1.Button1Click(Sender: TObject);
var x, y, z:integer;
tmpstr : array[0..100] of string;
begin
with gr1 do begin
for x:= 1 to rowcount -1 do
for y := 1 to rowcount-x do
if strtoint(cells[1, y]) > strtoint(cells[1, y+1]) then
for z := 0 to colcount-1 do begin
tmpstr[z] := cells[z,y];
cells[z,y] := cells[z, y+1];
cells[z, y+1] := tmpstr[z];
end;
end; end;
Voilà, en plus j'ai testé sur un stringgrid, j'ai vraiment du temps à perdre.
Ca devrait aller là, non ?
Le tri, c'était il y a ... 40 ans, oui 40 (ou là là, je me fais vieux)
Salut,
un tri se fait avec 2 for imbriqués (au moins)
procedure tri;
var x, y : integer;
tmp : string;
begin
for x := 1 to 100-1 do
for y := 1 to 100-x do
if StrToInt(StringGrid2.Cells[11, y])> StrToInt(StringGrid2.Cells[11, y+1])
begin
tmp := StrToInt(StringGrid2.Cells[11, y];
StrToInt(StringGrid2.Cells[11, y] := StrToInt(StringGrid2.Cells[11, y+1];
StrToInt(StringGrid2.Cells[11, y+1] := tmp;
end;
end;
Bien que ce tri ne soit pas performant, il fonctionne.
Mais ce qui me semble bizarre, tu veux trier uniquement la col "i1" et laisser toutes les autre colonnes dans l'état. Ca va mixer les lignes.
Bizarre, vous avez dit bizarre ...
Super, merci!
Je trie toute la ligne puisque je permute StringGrid2.rows[j] et StringGrid2.rows[j+1]
Mais sur base des valeurs de la colonne 11 (numérique)
Je t'encourage à regarder dans le rep demo, il y a un folder "Threads" où il y a 3 exemples de tri, c'est un bon tutoriel pour comprendre les tris.
Si la rep te convient, pense à accepter et ainsifermer cette discussion.
for x := 1 to 100-1 do
for y := 1 to 100-x do
if StrToInt(StringGrid2.Cells[11, y])> StrToInt(StringGrid2.Cells[11, y+1]) then
begin
tempstr:=StringGrid2.Rows[j];
StringGrid2.Rows[j] :=StringGrid2.Rows[j+1];
StringGrid2.Rows[j+1]:=tempstr;
end;
Tu veux des baffes ? (désolé) Il faut regarder mon code et réfléchir un peu, non ? Mon tri je l'ai testé sur un tableau et pas sur un stringgrid. Les boucles sont faites avec x et y et ensuite swap avec des Row[j] et row[j+1]. Remplace les j par des y et tu verras, la révélation viendra:
if StrToInt(StringGrid2.Cells[11, y])> StrToInt(StringGrid2.Cells[11, y+1]) then
begin
tempstr:=StringGrid2.Rows[y];
StringGrid2.Rows[y] :=StringGrid2.Rows[y+1];
StringGrid2.Rows[y+1]:=tempstr;
end;
M'enfin, t'avais pas vu ça !!! Ne ferais-tu pas partie des partisans du copier/coller sans réfléchir ? Ce coup-ci tu devrais t'en sortir. (faut tout leur dire à ces mômes)
A propos du répertoire demo, il doit être dans le rep delphi. Si tu ne l'as pas, fais-moi un mail je t'enverrai le code des 3 tris.
Bonne journée.
Oui, j'avais déjà corrigé bien sûr mais je ne t'ai pas envoiyé le bon code
Avec le y, j'obtiens un tri mais me génère pleins de doublons???
J'ai tenté des motifs mais sans meilleur résultat...
Salut Solilog!
En effet c'est ok!!!
Il est vrai que je n'ai pas cherché du côté de la permutation de ligne,
StringGrid2.Rows[j] :=StringGrid2.Rows[j+1];
je cherchais (en vain) dans une autre direction (le tri)
Je ne comprend pas pourquoi cette permutation ne fonctionne pas, elle semble être correcte non?
Encore merci!
et bonne soirée!!!
Pour terminer là-dessus il faut utiliser Cols[y] et pas Rows[y], eh oui. Tiens, je viens aussi d'apprendre qq'chose.
- Rows[y] c'est le contenu de toutes les LIGNES de la colonne y
- Cols[y] c'est le contenu de toutes les COLONNES de la ligne y
Pas clairement dit dans la doc mais après un petit test c'est çà. Donc dans ton cas, tu dois utiliser un tmpstr : tStrings et faire la permutation avec des Cols[].
Tu peux fermer le ticket si pas encore fait.
une autre solution proposée par Cirec, très performante,
consiste à utiliser des tableaux de pointeurs qu'il a donnée
dans un de ces posts assez récemment.
procedure SortStringGrid( var GenStrGrid: TStringGrid; ThatCol: integer);
const
TheSeparator = '@';
var
CountItem, I, J, K, ThePosition: integer;
MyList: TStringList;
MyString, TempString: string;
begin
CountItem := GenStrGrid.RowCount;
MyList := TStringList.Create;
MyList.Sorted := False;
try
begin
for I := 1 to (CountItem - 1) do
MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator +
GenStrGrid.Rows[I].Text);
Mylist.Sort;
for K := 1 to Mylist.Count do
begin
MyString := MyList.Strings[(K - 1)];
ThePosition := Pos(TheSeparator, MyString);
TempString := '';
{Eliminate the Text of the column on which we have sorted the StringGrid}
TempString := Copy(MyString, (ThePosition + 1), Length(MyString));
MyList.Strings[(K - 1)] := '';
MyList.Strings[(K - 1)] := TempString;
end;
for J := 1 to (CountItem - 1) do
GenStrGrid.Rows[J].Text := MyList.Strings[(J - 1)];
end;
finally
MyList.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//trier le Stringgrid d'après la première colonne
SortStringGrid(StringGrid1, 1);
end;
unit U_Gridsort;
{Sample program to sort rows of a stringgrid based on any selected column}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, StdCtrls;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
procedure SortGrid(Grid : TStringGrid; SortCol:integer);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{************** SortGrid *************}
procedure Tform1.Sortgrid(Grid : TStringGrid; SortCol:integer);
{A simple exchange sort of grid rows}
var
i,j : integer;
temp:tstringlist;
begin
temp:=tstringlist.create;
with Grid do
for i := FixedRows to RowCount - 2 do {because last row has no next row}
for j:= i+1 to rowcount-1 do {from next row to end}
if AnsiCompareText(Cells[SortCol, i], Cells[SortCol,j]) > 0
then
begin
temp.assign(rows[j]);
rows[j].assign(rows[i]);
rows[i].assign(temp);
end;
temp.free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
totwidth:integer;
begin
with stringgrid1 do
begin
{assign some random numbers}
for j := 1 to rowcount-1 do
for i:= 1 to colcount-1 do
cells[i,j]:=format('%3d',[random(1000)]);
{Add row labels}
for i:= 1 to rowcount-1 do cells[0,i]:='Row '+ format('%2d',[i]);
{Add column labels and change column widths}
totwidth:=0;
for i:= 0 to colcount-1 do
begin
cells[i,0]:='Column '+ inttostr(i+1);
{vary column widths for testing}
colwidths[i]:=defaultcolwidth+random(48);
inc(totwidth,colwidths[i]);
end;
{adjust grid width so that all column are visible}
width:=totwidth+(colcount+3)*gridlinewidth;
end;
end;
{************ StringgridMouseUp **************}
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
c,j:integer;
rect:trect;
begin
with stringgrid1 do
if y<rowheights[0] then {make sure row 0 was clicked}
begin
for j:= 0 to colcount-1 do {determine which column was clicked}
begin
rect := cellrect(j,0);
if (rect.Left < x) and (rect.Right> x) then
begin
c := j;
break;
end;
end;
sortgrid(stringgrid1,c);
end;
end;
end.
Cantador,
Moi je m'arrête là avec le post de PhiLU. Je lui ai répondu, il doit pouvoir s'en sortir. J'ai quand même appris qq'cgose (grid.cols[y] est une ligne et rows[] une colonne), même mon help est faux. J'ai pas que çà à faire mon 400 me réclame (AS/400). En fait je réponds à des post delphi quand je suis en déplacement 1 sem/2, pour tuer la solitude et l'ennui.
@PhiLU, c'est bon là, ferme ce post, sinon cantador va nous noyer sous 1000 lignes de code.
