Tom's Guide > Forum > Programmation > [Delphi] Probleme Stringgrid

[Delphi] Probleme Stringgrid

Forum Programmation : [Delphi] Probleme Stringgrid

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
frenchman   13-02-2007 à 10:25:29

Bonjour,

J'ai une fiche avec un stringgrid et un boutton

le stringgrid a 9 colonnes et 50 lignes

Je voudrais qu'au clic sur le boutton, la 2eme colonne soit triée par ordre croissant. Voila ce que j'ai ecrit :

Code :
  1. procedure TfmInterface1.Button2Click(Sender: TObject);
  2. Var i, j, k : Integer;
  3.     S:String;
  4. Begin
  5.   With grmessages Do
  6.   Begin
  7.     For i:=1 To rowcount-2 Do
  8.       For j:=i+1 To RowCount-1 Do
  9.         If Cells[1,i]>Cells[1,j] Then
  10.         Begin
  11.           S := Rows[i].Text;
  12.           Rows[i].Text := Rows[j].Text;
  13.           Rows[j].Text := S;
  14.         End;



Il y a 2 problèmes :

- la colonne est bien triée, mais seulement grâce au premier caractère de la cellule ( par exemple ça donne : 1,2,3,354,398,4 ... )

- si par exemple je n'ai que 10 ligne de remplie, une fois trié tout est décalé sur les 10 dernieres ligne du stringgrid !

j'ai ecrit ça pour essayé de le faire remonter :

Code :
  1. k:=2;
  2. repeat
  3.     grmessages.cells[0,k-1]:=grmessages.cells[0,k];
  4.     grmessages.cells[1,k-1]:=grmessages.cells[1,k];
  5.     grmessages.cells[2,k-1]:=grmessages.cells[2,k];
  6.     grmessages.cells[3,k-1]:=grmessages.cells[3,k];
  7.     grmessages.cells[4,k-1]:=grmessages.cells[4,k];
  8.     grmessages.cells[5,k-1]:=grmessages.cells[5,k];
  9.     grmessages.cells[6,k-1]:=grmessages.cells[6,k];
  10.     grmessages.cells[7,k-1]:=grmessages.cells[7,k];
  11.     grmessages.cells[8,k-1]:=grmessages.cells[8,k];
  12.     k:=k+1;
  13. until
  14.     grmessages.cells[0,1]='';



Mais c'est une boucle qui tourne à l'infini :ouch:

Voila, si qqun peut m'aider à regler ces 2 problèmes ( faire remonter les caractères et triez au moins sur les 4 premiers caractères ) se serait sympa :)

Merci

PS : je ne debute pas en Delphi, mais je debute avec les stringgrid :lol:


Message édité par frenchman le 13-02-2007 à 10:26:50
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > [Delphi] Probleme Stringgrid
Aller à :

Il y a 1660 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,343 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens