Discussion :

[kasrimus]

Bonsoir,
svp, c'est encore moi, est ce que c'est possible de tester toutes les cellules d'un stringGrid si sont renseignées ou non. (entier)
mon problème à moi, c'est que je veux afficher un boutton pour calcul q'une fois que toutes les cellules (Stringgrid sont renseignées).
merci pour votre aide.

[camatchou]

bonjour,

vous aurez peut être besoin d'une procédure qui ressemble à ceci

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
 var
  I, J : Integer;
  M : boolean;         
begin
  m := true;   // variable qui nous permettra de détecter si une case renseignée
  with StringGrid1 do
    for I := 0 to ColCount - 1 do
      for J:= 0 to RowCount - 1 do
        begin
          if trim(Cells[I,J]) <> '' then    // si une case n'est pas vide
          begin
           m:=false;
           exit
          end;
        end;
        if m then button1.visible:=true else button1.visible:=false;

cette procédure peut etre dans un évenement quelconque (ONEXIT du stringGrid lui meme par exemple,) ou onclic d'un bouton etc...

Voilà, c'est une idée qui m'est venue à l'esprit, j'espère qu'elle vous aidera,
bonne continuation.

[Rayek]

bonjour,

vous aurez peut être besoin d'une procédure qui ressemble à ceci

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
 var
  I, J : Integer;
  M : boolean;         
begin
  m := true;   // variable qui nous permettra de détecter si une case renseignée
  with StringGrid1 do
    for I := 0 to ColCount - 1 do
      for J:= 0 to RowCount - 1 do
        begin
          if trim(Cells[I,J]) <> '' then    // si une case n'est pas vide
          begin
           m:=false;
           exit
          end;
        end;
        if m then button1.visible:=true else button1.visible:=false;

cette procédure peut etre dans un évenement quelconque (ONEXIT du stringGrid lui meme par exemple,) ou onclic d'un bouton etc...

Voilà, c'est une idée qui m'est venue à l'esprit, j'espère qu'elle vous aidera,
bonne continuation.

4 remarques :

1- Le nom de la variable m c'est pas terrible (surtout si quelqu'un passe derrière), il vaut mieux la nommer correctement, par exemple : bTouteCaseRemplie
2- Inutile de commencer le parcours à 0 de la StringGrid (est-ce bien utile de tester l'entête de colonne (Si on a des FixedCols ou FixedRows)
3- le test if m à la fin ne sert à rien à cause du Exit qui sort de la procédure et n'y passe même pas. dans ce cas il vaut mieux utiliser une boucle while.
4- Les if then else sur une ligne sont une catastrophe pour le débugage, comment savoir en pas à pas si on est passé dans le then ou dans le else.

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
19
20
21
 var
  I, J : Integer;
  bTouteCaseRemplie: boolean;         
begin
  bTouteCaseRemplie:= true;   // variable qui nous permettra de détecter si une case renseignée
  with StringGrid1 do
  begin
    i := FixedCols;
    While (i <= ColCount -1) and bTouteCaseRemplie do
    begin
      j := FixedRows;
      While (j <= Rowcount -1) and bTouteCaseRemplie do
      begin
        bTouteCaseRemplie := (trim(Cells[I,J]) <> '');
        inc(j);
      end;
      inc(i);
    end;
  end;
 
  button1.visible:=bTouteCaseRemplie;

[camatchou]

ok Rayek,

je prendrai en compte et avec plaisir les quatres observations.

Merci beaucoup

[Andnotor]

Oui mais là, ça ne teste que la dernière case
L'Exit est mieux puisqu'il nous permet de sortir dès l'erreur rencontrée !

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
var
  x,y   : Integer;
  Value : Integer;
 
begin
  with StringGrid1 do
    for x := FixedCols to ColCount -1
      for y := FixedRows to RowCount -1
        if not TryStrToInt(Cells[x,y], Value) then
        begin
          Button1.Enabled := FALSE;
          Exit;
        end;
 
  Button1.Enabled := TRUE;
end;

Edit: Oops, j'avais zappé le AND...

[kasrimus]

Bonsoir,
merci mes amis pour vos réponses
je m'excuse pour l'absence " problèmes de connexion"
en fait j'ai pris connaissance de vos réponses qui répondent exactement à mes besoins, sauf que pour compléter le besoin, je souhaiterai que lorsque je termine la saisie le button s'affiche systématiquement.
merci d'avance.

[tourlourou]

mon problème à moi, c'est que je veux afficher un boutton pour calcul q'une fois que toutes les cellules (Stringgrid sont renseignées).

sauf que pour compléter le besoin, je souhaiterai que lorsque je termine la saisie le button s'affiche systématiquement.

Donc, pour compléter le besoin de n'afficher un bouton que conditionnellement, il faut l'afficher systématiquement ?

A quoi sert donc le test de complétude de la grille dans ce cas ?

Par surcroît, ce n'est pas un exploit de programmation d'y parvenir, si tu as compris les codes proposés

[kasrimus]

re bonsoir,
merci pour la réponse
oui j'ai testé le button ne s'affiche pas une fois que la saisie est terminé.
pardon je suis pas un spécialiste en delphi c'est mes débuts
merci
pour votre aide

[tourlourou]

Il est bon que le bouton soit seulement autorisé (Enabled) par la condition.
Mais il faut qu'il soit visible dès le début, effectivement.

Donc, dès que tu crées la grille de saisie, il faut afficher le bouton grisé :

Code :

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

1
2
3
Button1.Enabled:=False;
Button1.Show;
StringGrid1.Show;

et permettre de cliquer dessus dès que la grille est remplie, cf. code de Andnotor

[kasrimus]

Bonsoir
merci pour votre réponse.
ça ne marche toujours pas comme je le souhaites.
voilà ce les lignes de commandes :

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
19
20
21
22
23
24
25
26
27
28
29
var
  x,y   : Integer;
  Value : Integer;
 
begin
  with StringGrid1 do
    for x := stringgrid1.FixedCols to stringgrid1.ColCount -1  do
      for y := stringgrid1.FixedRows to stringgrid1.RowCount -1  do
        if not TryStrToInt(Cells[x,y], Value) then
        begin
          Button1.Visible  := false;
          Exit;
        end;
  Button1.Visible := true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled:=true;
Button1.Show;
StringGrid1.Show;
   button1.Caption :='chargementremière '+#13+'autres';
 
end;
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9',Decimalseparator,',']) then
key := #0;
end;

[tourlourou]

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
19
20
21
22
23
24
25
26
27
28
29
var
  x,y   : Integer;
  Value : Integer;
 
begin
  Button1.Enabled := true; 
  with StringGrid1 do
    for x := stringgrid1.FixedCols to stringgrid1.ColCount -1  do
      for y := stringgrid1.FixedRows to stringgrid1.RowCount -1  do
        if not TryStrToInt(Cells[x,y], Value) then
        begin
          Button1.Enabled  := False;
          Exit;
        end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled:=False;
  Button1.Show;
  StringGrid1.Show;
  Button1.Caption :='chargementremière '+#13+'autres';
end;
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [ #8, '0'..'9', DecimalSeparator, ',' ]) then
  key := #0;
end;