Supprimer une ligne dans un TStringGrid

Version imprimable

Bonjour,

Je souhaite supprimer une ligne dans un TStringGrid en fonction de la position de la position du curseur.
J'ai un code mais il me supprime toujours la ligne la plus en haut dans le StringGrid,
Ce que je voudrais moi, c'est que si je clique sur le premier champ de la quatrième ligne par exemple, il me supprime bien la quatrième ligne intégralement...

Voici le code que j'ai pour le moment:
Code:

1 2 3 4 5 6 7 8 9 10 void __fastcall TForm1::Button2Click(TObject *Sender) { int IndexLigne; int numLigne=0; for(IndexLigne=numLigne; IndexLigne<(AdvStringGrid1->RowCount-1); IndexLigne++) { AdvStringGrid1->Rows[IndexLigne] = AdvStringGrid1->Rows[IndexLigne+1]; } AdvStringGrid1->RowCount--; }
La suppression se déclenche quand je clique sur le bouton

29/11/2010, 12h07
kurul1

Regarde du coté de la fonction DeleteRow je crois que tu lui passes l'index de ta ligne et il l'a détruit
29/11/2010, 12h14
dekalima

Je trouve pas de fonction DeleteRow dans TStringGrid :?
29/11/2010, 12h19
kurul1

Autant pour moi DSL elle n'est pas accessible pour une TStringGrid, j'aurais du vérifier avant de poster

J'ai vu que tu peux supprimer toutes les chaines pour une Row (En appelant Delete(IndexCols) sur une Row) mais après pour décaler tout ce qui suit je ne vois pas comment faire sinon de reconstruire complètement ta StringGrid en enlevant la Row en question.

Il y a surement plus simple
29/11/2010, 12h35
dekalima

Yes, je vais attendre pour voir si d'autres membres ont une idée...

C'est ça le problème quand on utilise un TStringGrid rempli à partir d'un fichier.txt, avec MYSQL il suffit d'une simple requête pour réactualiser le tableau...
mais là je suis un peu dans le brouillard !!

Bon en fait, ça a l'air de marcher avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
void __fastcall TForm1::AdvStringGrid1ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
  int i;
  int nbLigne = AdvStringGrid1->Selection.Bottom - (AdvStringGrid1->Selection.Top-1);
  for(i=0; i<nbLigne; i++)
  {
    SupprimerLigne(AdvStringGrid1->Selection.Top,AdvStringGrid1);
  }
 
}
//---------------------------------------------------------------------------
 void TForm1::SupprimerLigne(int numLigne, TStringGrid * monStringGrid)
{
  int IndexLigne;
  for(IndexLigne=numLigne; IndexLigne<(monStringGrid->RowCount-1); IndexLigne++)
  {
    monStringGrid->Rows[IndexLigne] = monStringGrid->Rows[IndexLigne+1];
  }
  monStringGrid->RowCount--;
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   SupprimerLigne(AdvStringGrid1->Selection.Top,AdvStringGrid1);
}

Mais faut que je le bosse car je l'ai trouvé et j'ai pas encore tout saisi

Pour supprimer une ligne (ou une colonne) dans un StringGrid, la reponse est dans la FAQ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  //déclaration d'une classe où DeleteRow est public
  class TPublicStringGrid: public TCustomGrid
  {
    public:
        using TCustomGrid::DeleteRow;
        using TCustomGrid::DeleteColumn;
  };
 // supprime la ligne n°2 (donc la troisième ligne, la première étant la ligne n°0) :
 ((TPublicStringGrid*)StringGrid1)->DeleteRow(2);
}