Rudiment composant TStringGrid

Version imprimable

05/06/2008, 13h08
bleuerouge

Rudiment composant TStringGrid

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
05/06/2008, 13h48
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+

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:

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:

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

Salut,

Essayes donc :

Code:

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+ :D

Citation:
Envoyé par Gilbert Geyer
Salut,

Essayes donc :
Code:

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+ :D
Bonsoir,
Désole ça ne marche pas. J'ai toujours de ElistError :(

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

Code:

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;

06/06/2008, 10h39
Gilbert Geyer

Bonjour,

Citation:

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

Citation:

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+ :D