Stringgrid...
XgaletteX
Messages postés
102
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2005
-
20 juil. 2005 à 17:54
cs_Adkiks Messages postés 40 Date d'inscription jeudi 20 mai 2004 Statut Membre Dernière intervention 29 janvier 2006 - 21 juil. 2005 à 02:25
cs_Adkiks Messages postés 40 Date d'inscription jeudi 20 mai 2004 Statut Membre Dernière intervention 29 janvier 2006 - 21 juil. 2005 à 02:25
2 réponses
moldov
Messages postés
165
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
10 novembre 2008
20 juil. 2005 à 19:02
20 juil. 2005 à 19:02
Salut
Alros je sais kon peux effacer une colonne entière d'un coup donc ca va deja assez vite en parcourant les colonnes.
Mais je viens de penser, en recupérant le nombre de colonne et de
ligne, ensuite tu met les nombre de colonne et de ligne a 1 et tu les
remet au bonne valeur, je sais pas si ca les supprime, ilfaut tester.
bonne Prog
Alros je sais kon peux effacer une colonne entière d'un coup donc ca va deja assez vite en parcourant les colonnes.
Mais je viens de penser, en recupérant le nombre de colonne et de
ligne, ensuite tu met les nombre de colonne et de ligne a 1 et tu les
remet au bonne valeur, je sais pas si ca les supprime, ilfaut tester.
bonne Prog
cs_Adkiks
Messages postés
40
Date d'inscription
jeudi 20 mai 2004
Statut
Membre
Dernière intervention
29 janvier 2006
21 juil. 2005 à 02:25
21 juil. 2005 à 02:25
Voici une fonction qui permet d'effacer toutes les lignes d'un StringGrid
procedure EffacerLignes(Sg: TStringGrid;Ligne:integer);
var
i,j: Integer;
begin
for i:=0 to Sg.ColCount-1 do
for j:=0 to Sg.RowCount-1 do
Sg.cells[i,j]:='';
for i := Ligne to Sg.RowCount - 2 do
Sg.Rows[i] := Sg.Rows[i + 1];
Sg.RowCount := Sg.RowCount - 1;
end;
C'est comme dans Un tableau.
Ensuite tu feras l'appel de cette procedure de cette façon:
for i:=0 to MonStringGrid.RowCount do
EffacerLignes(MonStringGrid,i);
En plus, cette procédure permet de supprimer les i premières lignes.
Bonne programmation....
procedure EffacerLignes(Sg: TStringGrid;Ligne:integer);
var
i,j: Integer;
begin
for i:=0 to Sg.ColCount-1 do
for j:=0 to Sg.RowCount-1 do
Sg.cells[i,j]:='';
for i := Ligne to Sg.RowCount - 2 do
Sg.Rows[i] := Sg.Rows[i + 1];
Sg.RowCount := Sg.RowCount - 1;
end;
C'est comme dans Un tableau.
Ensuite tu feras l'appel de cette procedure de cette façon:
for i:=0 to MonStringGrid.RowCount do
EffacerLignes(MonStringGrid,i);
En plus, cette procédure permet de supprimer les i premières lignes.
Bonne programmation....
