Discussion :

[gilles641]

Bonjour,
J ai un string grid d une taille donnee et j aimerai savoir si il est possible de compter combien de champs sont entres sur la verticale par exemple.
En fait j ai uns tringgrid de 2 colonnes de longueur infinie par ex ou l utilisateur entre un certain nombre de lignes et j aimerai pouvoir savoir combien..
merci d avance

[Tardiff Jean-François]

Bonjour,

Je crois que les TStringGrid ont une propriété ClientHeight, clientWidth donnant la taille disponible pour les cellules.

Vous devriez pouvoir éffectuer vos calcule à partir de ces propriété et des taille des cellules (colWidts, ColHeight). Attention si toutes les cellules ne sont pas de la même taille il vous faudra tenir compte des cellules visibles à l'écran.

[gilles641]

Justement je veux entrer une taille infinie...

[rsc]

Justement je veux entrer une taille infinie...

: :

Je n'ai jamais vu que l'informatique faisait bon ménage avec l'infini Que veux-tu faire ? Augmenter le RowCount en fonction des saisies ?

[gilles641]

Oui enfin que l utilisateur puisse entrer autant de champs qu il le desire.
En fait apres ca je veux remplir un tableau contenant les champs et je ne vois pas comment faire pour fixer la taille du tableau vu que je ne saurai pas combien de champs ont ete entrees dans chaque colonne...

[rsc]

Comment tes utilisateurs écrivent-ils dans ton StringGrid ?

[gilles641]

ben g mis le parametre Onediting sur true et puis il suffit de cliquer dessus

[rsc]

La solution la plus simple même si c'est pas le pied, c'est d'utiliser l'événement OnSelectCell, qui se déclenche quand on entre dans une cellule et d'écrire

Code :

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

1
2
3
with MyGrid do
if ARow = RowCount - 1
  then RowCount := RowCount + 1;

Ca ajoute une ligne quand tu entres dans la dernière ligne, autrement dit tu as touojurs une ligne de trop.

Si tu veux éliminer les lignes en trop, tu peux "retailler" ton Grid dans OnExit :

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
var
   LigneVide : Boolean;
   NewRowCount : Integer;
 
(with MyGrid do)
...
for i := RowCount - 1 downto 0 do
begin
  LigneVide := True;
  for j := 0 to ColCount - 1 do
    LigneVide := LigneVide And (Cells [j, i] = '');
  if not LigneVide then
  begin
     NewRowCount := i + 1;
     Break;
   end;
end;
RowCount := NewRowCount;

NB : Code écrit à la volée, à vérifier

[gilles641]

Merci bien pour ton code.
Mais je suis en train de me demander si il est pas possible de faire une boucle sur les champs et tant que le champs n est pas vide incrementer un compteur qui donnera la taille
Par contre en pascal quel est le test a faire pr voir si une cellule est vide
test='' il me semble que ca ne marche pas.
Tu as une idee ?

[Tardiff Jean-François]

Et si la cellule contient des espaces.

Il vaudrait peut être mieux teste sur trim(Gri.Cells[x, y]).

[rsc]

Et si la cellule contient des espaces.

Il vaudrait peut être mieux teste sur trim(Gri.Cells[x, y]).

[gilles641]

c quoi trim ?

[rsc]

C'est une fonction qui enlève les espaces en début et fin de chaîne

[OutOfRange]

Bonjour

Et si la cellule contient des espaces.

Il vaudrait peut être mieux teste sur trim(Gri.Cells[x, y]).

Personnellement, je ne vois pas l'intérêt d'utiliser trim

Code :

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

if StringGrid1.Cells[x,y]=''

fonctionne très bien
Un espace est un caractère comme un autre !

[Tardiff Jean-François]

Bonjour,

Une des cause courante d'érreure lorsque l'on vérifie qu'en valeur saisie est vide, est qu'elle n'est justement pas vide.

Si je test

Code :

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

1
2
 
if Grid.Cells[x,Y] = '' then

et que mas cellule contient un ou plusieur espace, la condition est fause.

Trim permet d'éviter ce problème.

[OutOfRange]

Bonjour,
OK Tardiff Jean-François
Mais je trouve que cette façon de contourner les pb n'est pas très "formatrice"
Si

Code :

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

 if Grid.Cells[x,Y] = '' then

renvoie false, c'est que la cellule n'est pas vide. Pourquoi s'obstiner à penser qu'elle l'est?
Et si son contenu est visuellement vide, c'est qu'elle ne peut contenir qu'un ou plusieurs espaces, qui, j'insiste, est un caractère comme un autre dont le code ascii est 32.
Sans rancune