Suppression de lignes dans un StringGrid

bonsoir les pros
Cela fait plusieurs jours que je rebute sur un problème si quelqu'un pouvait m'aider ce serait super
merci d'avance
voila le code que j'utilise

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

begin e:=0;z:=0; repeat e:=e+1; if sgcombinaison.Cells[1,e]=(inttostr(tab[1])) then inc(z); if sgcombinaison.Cells[2,e]=(inttostr(tab[1])) then inc(z); if sgcombinaison.Cells[3,e]=(inttostr(tab[1])) then inc(z); if z=1 then sgcombinaison.Cells[4,e]:=inttostr(10) else begin Tpublicstringgrid(sgcombinaison).deleterow(e); end; z:=0; until e=84;

---

j'ai une stringgrid composée de 84 lignes et 4colonnes remplie de code à 3 chiffres.
Or je souhaite conserver les lignes qui ont (par exemple) le chiffre(1) {tab[1]} dans le code
le code Tpublicstringgrid(sgcombinaison).deleterow(e) fonctionne si je remplace la variable e par un chiffre mais
pas dans mon code.Je precise que je débute en programmation (1mois) soyez indulgenthttp://www.developpez.net/forums/images/smilies/icon_razz.gif

parcourir une liste du début à la fin en lui enlevant des lignes est dangereux : par exemple, on risque d'appeler une ligne d'indice disparu (ne fut-ce que la dernière).

il est donc toujours préférable de parcourir la liste de la fin au début :

Code:

---

1 2 3 4 5 6 7

for i:=sgcombinaison.RowCount-1 downto 0 do begin if condition then sgcombinaison.Cells[4,i]:=inttostr(10) else Tpublicstringgrid(sgcombinaison).deleterow(i); end;

---

merci tourlourou je vais adapter ton code
D'avance merci
bravo pour ta judicieuse analyse tourlourou
ton code fonctionne houai!!!!!!!

Bonjour,

je vais aussi rajouter une couche :-)
Je n'ai pas bien compris, tu veux supprimer les lignes si
toutes les 4 conditions est fausse
ou bien si au moins une est fausses ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

e:=0;z:=0; with sgcombinaison do for z = rowcount-1 downto 1 do begin if not Cells[1,z]=(inttostr(tab[1])) and not Cells[2,z]=(inttostr(tab[1])) and not Cells[3,z]=(inttostr(tab[1])) and not Cells[4,z] =inttostr(10) then deleterow(z); end;

---

(downto 1 et non 0 car je pense que ta grille a une ligne fixe - de titre).
là on supprime la ligne si toutes sont fausses
si tu replace les and par des or, ce sera
on supprime si au moins une est fausse.
Bon courage.

solilog