Discussion :

[michel71]

Bonjour,

je n'ai pas trouver la fonction qui permet de "nettoyer" une grille avant un nouvel affichage des données
fonction genre : clear,

Connaissez vous l'astuce

Merci

[Cl@udius]

Salut

Une astuce comme ca ?

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ACol, ARow: Integer;
begin
  with StringGrid1 do
  begin
    for ARow := 0 to RowCount - 1 do
      for ACol := 0 to ColCount - 1 do
      begin
        if (ARow >= FixedRows) and (ACol >= FixedCols) then
          Cells[ACol, ARow] := '';
      end;
    Row := FixedRows;
    Col := FixedCols;
  end;
end;

@+ Claudius

[banban54]

bonjour

personnellement je fais un peu comme avec le setlength des tableaux dynamiques.

Code :

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

1
2
3
 
with StringGrid1 do
  rowcount := FixedRows;

ensuite je redimentionne rowcount en fonction du besoin.

à plus

[Cl@udius]

@banban

Et si tu as également un colonne de figée ?

@+

[banban54]

@ Claudius

dans ce cas j'ai pas bon!

à plus