Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
46 - TRIER UN TSTRINGGRID

PRÉSENTATION : Trier un TStringGrid suivant la première colone saisie.
ZIP : Téléchargez le zip APERÇUS :

NOTES : Un truc tout simple pour ceux qui cherchaient...

CODE :
Procedure TForm1.Button1Click(Sender: TObject);
Var i,j:Integer;
    S:String;
Begin
  With StringGrid1 Do
  Begin
    For i:=1 To rowcount-2 Do
      For j:=i+1 To RowCount-1 Do
        If Cells[1,i]>Cells[1,j] Then
        Begin
          S := Rows[i].Text;
          Rows[i].Text := Rows[j].Text;
          Rows[j].Text := S;
        End;
  End;
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -