Discussion :

[ammapro]

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 :

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

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

[tourlourou]

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 :

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

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;

[ammapro]

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

[solilog]

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 :

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

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