Discussion :

[mouncef]

j'ai pu créer un composant stringgrid pendant l’exécution en utilisant le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for i:=1 to nflux do
 With Tstringgrid.Create(formul.Scrollbox2) Do
  Begin
  name:='stringgrid'+inttostr(i+2);
  Parent := formul.Scrollbox2;
  colcount:=2;
  rowcount:=sommet+1;
  Cells[0,0]:='Flot N° '+inttostr(i);
  Options:=Options+[goEditing];
  width:=160;
  for j:=1 to sommet do Cells[0,j]:=chr(64+j);
  left:=(i-1)*164;
 
  End;

mais quand je veux l'utiliser pour un affichage j'ai pas pu le faire et voici le code qui a declenché l'erreur :

Code :

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

1
2
3
if k=1 then equation:=equation+'='+Scrollbox2.stringgrid3.cell[2,i]; 
 if k=2 then equation:=equation+'='+Scrollbox2.stringgrid4.cell[2,i];
 if k=3 then equation:=equation+'='+scrollbox2.stringgrid5.cell[2,i];

l'erreur est :
identificateur non déclaré: 'stringgrid3'
et la même chose pour les autres stringgrid4,stringgrid5

k est une valeur connu et equation est une chaine de caractères qui permet d'afficher l’équation proprement dite.

[tourlourou]

Il n'est pas possible de nommer dans le code de cette façon : le compilateur ne sait pas combien de grilles seront crées avant l'exécution et ne peut les gérer comme des composants déposés en conception sur une fiche.

Par contre, on peut en création les ajouter à un tableau ou à une liste de grilles.

On peut également rechercher les composants dont le Owner le permet par

Code :

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

MyObject := TMyComponent( HisOwner.FindComponent('HisName') );

mais c'est plus long, surtout si ce code doit se répéter souvent.

[Papy214]

La liste de grille proposée par tourlourou semble une solution simple et pratique

[mouncef]

mais comment on peut en création les ajouter à un tableau ou à une liste de grilles???

[Papy214]

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
30
 
var
  Grilles: array of TStringGrid;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
  SetLength(Grilles, 4);
  Grilles[0] := TStringGrid.Create(Self);
  Grilles[0].Parent := Self;
 
  Grilles[1] := TStringGrid.Create(Self);
  Grilles[1].Parent := Self;
  Grilles[1].Left := Grilles[0].Left + Grilles[0].Width + 25;
 
  Grilles[2] := TStringGrid.Create(Self);
  Grilles[2].Parent := Self;
  Grilles[2].Top := Grilles[0].Top + Grilles[0].Height + 25;
 
  Grilles[3] := TStringGrid.Create(Self);
  Grilles[3].Parent := Self;
  Grilles[3].Left := Grilles[2].Left + Grilles[2].Width + 25;
  Grilles[3].Top := Grilles[1].Top + Grilles[1].Height + 25;
 
  Grilles[0].Cells[2, 2] := 'Grille0';
  Grilles[1].Cells[2, 2] := 'Grille1';
  Grilles[2].Cells[2, 2] := 'Grille2';
  Grilles[3].Cells[2, 2] := 'Grille3';
 
end;

[tourlourou]

Je ne sais pas ce que tu appelles "en création" : si c'est dynamiquement (= à l'exécution), cf. exemple ci-dessous

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
  FluxGrids: array of TStringGrid;
begin
  SetLength(FluxGrids, nflux);
  for i:=1 to nflux 
  do begin
    FluxGrids[i-1]:=TStringGrid.Create(nil);  // i-1 car tableaux dynamiques zero-based
    // pas besoin de passer la ScrollBox comme Owner : référence dans le tableau => on peut libérer manuellement
    with FluxGrids[i-1] do begin
      name:='stringgrid'+inttostr(i+2);
      Parent := formul.Scrollbox2;
      colcount:=2;
      //...
    end;
  end;

Si c'est en conception (Design Time), ce n'est pas possible : il faut en début d'exécution (FormCreate, par exemple) parcourir les parents et chercher leurs composants avec un FindComponent pour les ajouter au tableau.

[mouncef]

J'ai pas de probleme pour la creation des grilles (pour les flux) mais j'ai un probleme pour les utiliser
c.a.d :
j'ai pu les creer selon le nombre de flux (variable nflux) "pendant l'execution' car la variable nflux est saisie lors de l'execution
mais je ne peut pas les utiliser (je ne peut pas acceder a ces noms par exemple pour effectuer un autre traitement

[tourlourou]

Donc, créées selon le code précédent, on utilisera :

Code :

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

if k in [1..3] then equation:=equation+'='+FluxGrid[k].cell[2,i];