stringgrid delete row

Question

bjr;
comment supprimer une ligne s&#233;l&#233;ctionn&#233;e dans un stringgrid
j'ai f&#233; ma petite recheche le code propos&#233; ne fonctionne pas!
++

DRJEROME · Answer

procedure DeleteRow(SG:TStringGrid;Row:integer); var i:integer; begin if (SG.RowCount-1>Row) and (Row>0) and (SG.RowCount>1) then begin for i:=Row+1 to SG.RowCount-1 do SG.Rows[i-1].Assign(SG.Rows[i]); SG.RowCount:=SG.RowCount-1; end; end;

N'oubliez pas de cliquer sur Réponse acceptée si c'est OK DrJerome

Abadianet · Answer

Bonsoir,

A ma connaissance tu n'as de méthode pour supprimer une ligne.
Tu dois écraser la ligne courante par la suivante, puis la suivante par celle d'après, ainsi de suite et en fin décremnter la propriété RowCount

      for i := Row to RowCount - 2 do
        for j := 0 to ColCount - 1 do
          Cells[j, i] := Cells[j, i + 1];
      Dec(RowCount);

Abadiane

cs_Adkiks · Answer

Voila je te poste un exemple complet .j'espere que c'est ce que tu cherches.

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids;


type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure SupprimerLigne(Sg: TStringGrid;Ligne:integer);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure StringGrid1DblClick(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;
  LigneASupprimer:integer;
implementation


{$R *.DFM}


procedure Tform1.SupprimerLigne(Sg: TStringGrid;Ligne:integer);
var
  i,j: Integer;
begin
 with sg do
  begin


   for i := Ligne to RowCount - 2 do
    Rows[i] := Rows[i + 1];
   RowCount := RowCount - 1;
  end
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
//d&#233;terminer la ligne a supprimer
LigneASupprimer:=ARow;
end;


procedure TForm1.StringGrid1DblClick(Sender: TObject);
 begin
 
  SupprimerLigne(StringGrid1,LigneASupprimer)
 end;


end.

Stringgrid delete row

3 réponses

Votre réponse

Discussions similaires