Tri StringGrid

Question

Bjr



Voila j'ai un stringGrid avec une col "Mois" et des col de "libelles" corespondants a ce mois.



j'arrive a faire le tri du StringGrid mais je voudrais copie les ligne trouvees das un autre  StringGrid.



Voila la procedure de tri



Procedure TForm1.Button1Click(Sender: TObject);

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

    If Cells[1,i]>Cells[1,j] Then

    Begin

      S := StringGrid1.Rows[i].Text;

      Rows[i].Text := Rows[j].Text;

      Rows[j].Text := S;

    End;

  End;

End;



Merci et A+  

Louis

cs_Adkiks · Answer

Je te conseille d'utiliser un tableau d'enregistrements.Tu copies les lignes de ton StringGrid dans ce tableau ,et tu n'as plus qu'a faire le tri sur ce tableau puis tu copies le tableau dans le deuxieme stringgrid.
Je crois que c'est facile, si tu veux le code tu me le dis.Bon courage

sisi231 · Answer

t'as essay&#233;  :


stringgrid2.rows.clear;
with stringgrid1 do
for i:=0 to rows.count- 1 do
stringgrid2.rows.append(rows[i]);

tu as l'&#233;quivalent avec cols

et pour trier tu devrais passer par l'objet tstringlist qui a une m&#233;thode appel&#233;e "sort" qui trie automatiquement ses cha&#238;nes par odre alphab&#233;tique 

ex 
// ce code trie un tstrings :

mystringlist1.assign(mystrings1);
mystringlist1.sort;
mystrings1.assign(mystringlist1);

sachant que les propri&#233;t&#233;s rows et cols d'1 tstringgrid sont des tstrings


 


SISI231

Tri StringGrid

2 réponses

Votre réponse

Discussions similaires