Discussion :

[Charly910]

Bonjour,

j'utilise ce code (issu de la FAQ) pour supprimer une ligne de Mon StringGrid nommé TN :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{ ========================================================================= }
procedure TF_Princ.Btn_SupprimeLigneClick(Sender: TObject);
// Suppression d'une ligne dans le tableau
Var
   Num  : Integer ;
begin
   If TN.rowCount > 2 Then
      Begin
         Num := TN.row ;
         TN.Rows[Num].Clear;
         TPublicStringGrid(TN).DeleteRow(Num);
         NbPoint := NbPoint - 1 ;
         If Num > 1 Then TN.Row := Num - 1 Else TN.Row := Num ;
      End
   Else
      Begin
         ShowMessage('Une seule ligne dans le tableau'+ Chr(10)+ Chr(13)+ 'Suppression impossible');
      End ;
end;
{ ========================================================================= }

Cela fonctionne bien, mais quand il ne reste que 3 lignes, si je supprime la seconde ou la troisième le curseur se positionne sous la grille dans une cellule qui n'existe ?

Comment faire pour se positionner sur la seconde ligne après suppression de la troisième par exemple ?

PS : j'ai aussi un problème si je voulais supprimer la seconde et ne conserver que la première qui est en fixedRow

Merci pour vos suggestions

@+

Charly

[nuxtay]

Salut,
Essaye comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if TN.RowCount > TN.FixedRows +1 then
    TPublicStringGrid(TN).DeleteRow(TN.Row)
else
    TN.Rows[TN.Row].Clear;

@+

[Charly910]

Merci Nuxtay,

j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
{ ========================================================================= }
procedure TF_Princ.Btn_SupprimeLigneClick(Sender: TObject);
// Suppression d'une ligne dans le tableau
Var
   Num  : Integer ;
begin
   If TN.rowCount > 2 Then
      Begin
         Num := TN.row ;
//         TN.Rows[Num].Clear;
//         TPublicStringGrid(TN).DeleteRow(Num);
         if TN.RowCount > TN.FixedRows +1 then
             TPublicStringGrid(TN).DeleteRow(TN.Row)
         else
             TN.Rows[TN.Row].Clear;
         NbPoint := NbPoint - 1 ;
         If Num > 1 Then TN.Row := Num - 1 Else TN.Row := Num ;
      End
   Else
      Begin
         ShowMessage('Une seule ligne dans le tableau'+ Chr(10)+ Chr(13)+ 'Suppression impossible');
      End ;
 
end;
{ ========================================================================= }

Mais malheureusement cela ne change rien

Charly

[cincap]

Bonjour à toutes et à tous,

@ Charly910,

Le composant StringGrid ne permet pas de supprimer une ligne directement avec son numéro. Il faut donc copier chaque ligne située après celle a supprimer sur la ligne qui la précède, puis supprimer la dernière ligne.

Par exemple, si on veut supprimer la ligne 3, on copie la 4 sur la 3, la 5 sur la 4, ... et on supprime la dernière.

On peut donc utiliser une procédure telle que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure RemoveLine(AStringGrid: TStringGrid; ALine: Integer);
var
  i: Integer;
begin
  for i := ALine to AStringGrid.RowCount - 2 do
    AStringGrid.Rows[i] := AStringGrid.Rows[i + 1];
  AStringGrid.RowCount := AStringGrid.RowCount - 1;
end;

On peut alors facilement supprimer la ligne 3 de la StringGrid "MaStringGrid" :

RemoveLine(MaStringGrid,2);

@+,

Cincap

[Charly910]

Bonjour Cincap,

mais alors la procédure de la FAQ "Comment supprimer une ligne ou une colonne dans un TStringGrid ?" de Waskol ne fonctionne pas ?

dommage, j'aurais bien voulu aussi l'utiliser pour détruire une colonne.

Il doit y avoir quand même un bug dans le composant TStringGrid, car le curseur se positionne dans la zone cliente de la grille, mais sous la dernière ligne, dans une cellule qui n'existe pas mais on peut y taper du texte ?

Je suis en D7 - cela a peut être été corrigé dans les versions ultérieures de Delphi ?

Un truc bizarre c'est que si je met un ShowMessage après le DeleteRow, alors cela fonctionne bien, même pour détruire la 3iéme ligne

A+

Charly

[cincap]

Et avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
 
Type
TSGridEfface = class(TStringGrid)
protected
procedure DeleteRow(ARow: LongInt); reintroduce;
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TSGridEfface.DeleteRow(ARow: LongInt);
var
GemRow: Integer;
begin
GemRow := Row;
if RowCount > FixedRows + 1 then
inherited DeleteRow(ARow)
else
Rows[ARow].Clear;
if GemRow < RowCount then Row := GemRow;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
TSGridEfface(StringGrid1).DeleteRow(2);
 
end;

@+,

Cincap