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;

[Gilbert Geyer]

Bonjour,

bleuerouge Hier 15h31 : 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

bleuerouge Hier 16h09 : Désole ça ne marche pas. J'ai toujours de ElistError

... par contre je parie qu'elle ne liquide plus la ligne de titre et que le problème provient du code par lequel tu fais la nouvelle assignation.

A+