Discussion :

[thierrybatlle]

Bonsoir à tous,

Je souhaite pour changer des propriétés identiques sur un ensemble de grilles utiliser la propriété TAG.
Mais je me heurte à un problème :
Le code suivant ne marche pas :

Code :

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

(Components[5] as TStringGrid).Cells[5,6] := 'coucou';

Alors que celui-ci fonctionne :

Code :

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

1
2
3
 
if Components[i].Tag = 5 then
   (Components[5] as TStringGrid).Cells[5,6] := 'coucou';

Pourquoi je devrais passer par un IF alors que je sais par avance de quel type d'objet il s'agit ?

Passer par un IF signifie que je fais une boucle de 1 à 20 (20 grilles) que je met en place un CASE OF et cela m'oblige à écrire les 20 lignes de propriétés.

Merci à tous

[Pedro]

Salut
Question bête: ce ne serait pas plutot:

Code :

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

1
2
 
(Components[i] as TStringGrid).Cells[5,6] := 'coucou';

[thierrybatlle]

Je me suis trompé avec 5 il faut voir à la place i , mais cela ne fonctionne pas non plus avec la variable.

Merci

[Pedro]

C'est bizarre ton problème...
T'as essayé avec le cast "sauvage":

Code :

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

1
2
 
TStringGrid(Components[i]).Cells[5,6] := 'coucou';

Le code suivant ne marche pas :

Que se passe-t-il? Ca ne compile pas? Message d'erreur?

[thierrybatlle]

Des 2 façons ça déclenche une exception à l'exécution du programme.

????

[slimjoe]

Des 2 façons ça déclenche une exception à l'exécution du programme.

????

... et l'exception est ?

[thierrybatlle]

Le message est :
EaccessViolation avec le message 'violation d'accès à l'adresse ......

Merci

[Pascal Jankowski]

Ton i-ième composant ne doit pas être un TStringGrid

Il serait peut-être judicieux de vérifier avec l'opérateur is de la façon suivante :

Code :

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

1
2
3
4
5
if Components[i].Tag = 5 
  then
if Components[i] is TStringGrid
 then TStringGrid(Components[i]).Cells[5,6] := 'coucou';

Cordialement

[edam]

si tu essay de changer la cellule dans un des evenements de tes stringgrids; utlise

Code :

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

if TStringgrid(sender).tag=5 then

tu peut bien sur utlisé une autre méthode sans utlisé le if
crée un tableau de TStringgrid et lui affecter les stringgrid que vous avez dans oncreat

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
var MesSG:array[1..10] of Tstringgrid;
procedure Oncreat;
var  i:integer;
begin
     for i:=0 to ComponentCount-1 do
      begin
       if Components[i] is TStringGrid then
         begin
          j:=TStringGrid(Components[i]).Tag;
          messt[j]:=TStringGrid(Components[i]);
         end;
      end;
//attention il faut que le tableau messg a au moins le nbr de stringgrid que tu crée et que tu as bien initialisé leur tag
end;

bon dev