Effacement de String grid

Version imprimable

25/04/2007, 10h16
souadmaa

Effacement de String grid

bonjour :D
comment effacer le contenu d'un Stringgrid, puisque ce dernier n'a pas la propriété clear.
25/04/2007, 10h19
Cpt Anderson

Je crois que ca a déjà été évoqué 10000 fois...:mouarf:

perso, je boucle dans ma grille et j'efface les lignes:aie:
25/04/2007, 10h24
PadawanDuDelphi
Salut,

Sinon peut-être une astuce, à tester:
Essaye de placer la propriétées rowCount à 0 ( ou 1 selon si tu as une colonne fixe ou pas) puis tu la remet à sa valeur initiale.
Code:

1 2 3 4 5 6 7 8 9 10 var I:integer begin With stringgrid1 do begin I:= RowCount; RowCount:=0 RowCount:=I; end; end;
A+.
25/04/2007, 10h33
Rayek
Citation:
Envoyé par PadawanDuDelphi

Salut,

Sinon peut-être une astuce, à tester:
Essaye de placer la propriétées rowCount à 0 ( ou 1 selon si tu as une colonne fixe ou pas) puis tu la remet à sa valeur initiale.

Code:

1 2 3 4 5 6 7 8 9 10 var I:integer begin With stringgrid1 do begin I:= RowCount; RowCount:=0 RowCount:=I; end; end;

A+.
si tu remets RowCout a sa taille initiale après, les données sont encore présente. Le seul moyen c'est la boucle pour supprimer chaque donnée des cases
25/04/2007, 10h39
PadawanDuDelphi

Citation:

Envoyé par Malatar

si tu remets RowCout a sa taille initiale après, les données sont encore présente. Le seul moyen c'est la boucle pour supprimer chaque donnée des cases

8O

Ca c'est bizarre...Parceque dans mon appli j'ai justement une mise à jour d'une grid en fonction de paramètres différents situés sur des radiogroup, et je peux t'assurer que lorsque je rétrécissait et que j'agrandissait ma grid, mes données disparaissaient.
On me l'a même suffisamment repproché à l'époque. Et moi qui disais que ça venait du composant.. Va falloir que je reprenne mon code sérieusement :aie:

A+.

simplement tu faire une boucle c un exple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
var
i,j:integer;
begin
  for i:=1 to stringgrid1.ColCount do
    begin
      for j:=1 to stringgrid1.rowcount do
        begin
          stringgrid1.Cells[i,j]:='';
        end;
    end;
end;

:king:

Citation:

Envoyé par akremb22

simplement tu faire une boucle c un exple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
var
i,j:integer;
begin
  for i:=1 to stringgrid1.ColCount do
    begin
      for j:=1 to stringgrid1.rowcount do
        begin
          stringgrid1.Cells[i,j]:='';
        end;
    end;
end;

:king:

Je corrige le code akremb22 car avec ce qu'il propose, va y avoir un jolie message de dépassement d'index.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
var
i,j:integer;
begin
  for i:=1 to stringgrid1.ColCount -1 do
    begin
      for j:=1 to stringgrid1.rowcount -1 do
        begin
          stringgrid1.Cells[i,j]:='';
        end;
    end;
end;

25/04/2007, 18h13
akremb22

Citation:

Envoyé par Malatar

Je corrige le code akremb22 car avec ce qu'il propose, va y avoir un jolie message de dépassement d'index.

oui c vrai je suis désolé pour cette erreur :oops:

bonsoir

Code:

1
2
3
4
5
6
7
 
var
i :integer;
begin
   for i:=1 to stringgrid1.RowCount -1 do
      stringgrid1.rows[i].Clear;
end;

à plus