Discussion :

[bleuerouge]

Bonjour, j'aimerai savoir comment marche exactement un TStringGrid, je dois faire une liste qui se met à jour via d'autre liste ou d'autres controls, malheureusement je n'y arrive pas j'ai des ELIstError list index out of bound qui me sont notifié à la place.

Quel qu'un peut il m'indiquer un tutorial pour simplement , ajouter , modifier et supprimer une ligne ?

Merci d'avance

[Andry]

Salut.
Un petit rappel sans prétention.
Un stringgrid c'est comme un tableau multi-dimensionnelle de string.
Tu as differentes propriété :
RowCount : indique le nombre de ligne
ColCount : indique le nombre de colonne
Cells[Col,Row] : permet de modifier/Lire la valeur de la cellule sur la colonne Col et ligne Row.
Il faut faire très attention lors de la lacture/ecriture car un indice de Colonne/Ligne en Supérieur à ColCount -1/RowCount -1 provoque un erreur de débordement.

Maintenant dis nous ce que tu fais exactement
Tu peux chercher dans l'aide de Delphi sur comment l'utiliser.

A+

[bleuerouge]

Bonjour,

J'ai une stringgrids que je dois mettre a jour suivant la ligne d'un listebox sélectionnée, pour a jouter des lignes j'utilise :

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
 
 // ma StringGrid
 sgEquipementRegistres.RowCount := Registres.Count + 1;
 
   for I := 0 to Registres.Count - 1 do
    begin
 
     ligne := TStringList.Create;
 
     ligne.Add(Registres.GetValue(i).designation_registre);
     ligne.Add(Registres.GetValue(I).nom_mib);
     ligne.Add(Registres.GetValue(I).oid);
 
     sgEquipementRegistres.Rows[I+1].AddStrings(ligne);
 
     freeAndNil(ligne);
 
    end;

pour effacer j'utilise cette procedure

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
 
EffacerGrille ( grid : TStringGrid );
var
  i,j : integer;
begin
 
 Deselection (grid);
 
  for i:=1 to grid.RowCount-1 do
    for j:=0 to grid.ColCount-1 do
    grid.cells[j,i]:='';
  grid.Invalidate;
 
 grid.rowcount := 1;
 
end;

mais elle ne marche pas correctement, car elle liquide la ligne de titre et lors d'une nouvelle assignation , j'ai le probleme de EListError

[Gilbert Geyer]

Salut,

Essayes donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
EffacerGrille ( grid : TStringGrid );
var
  i,j : integer;
begin
 
 for i:=1 to grid.RowCount-1 do
    for j:=0 to grid.ColCount-1 do
    grid.cells[j,i]:='';
 
 grid.rowcount := 1;
 
end;

A+

[bleuerouge]

Salut,

Essayes donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
EffacerGrille ( grid : TStringGrid );
var
  i,j : integer;
begin
 
 for i:=1 to grid.RowCount-1 do
    for j:=0 to grid.ColCount-1 do
    grid.cells[j,i]:='';
 
 grid.rowcount := 1;
 
end;

A+

Bonsoir,
Désole ça ne marche pas. J'ai toujours de ElistError

[Andry]

Je vois pas trop ou se trouve le problème sur cette procedure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
EffacerGrille ( grid : TStringGrid );
var
  i,j : integer;
begin

for i:=1 to grid.RowCount-1 do
    for j:=0 to grid.ColCount-1 do
    grid.cells[j,i]:='';
   
grid.rowcount := 1;
 
end;