creer et utiliser le composant stringgrid pendant l'execution

Version imprimable

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

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:

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.

04/02/2014, 22h26
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:

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

mais c'est plus long, surtout si ce code doit se répéter souvent.
05/02/2014, 14h00
Papy214

La liste de grille proposée par tourlourou semble une solution simple et pratique
15/02/2014, 12h12
mouncef

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

Code:

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;

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

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.

15/02/2014, 17h43
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
15/02/2014, 18h04
tourlourou

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

Code:

if k in [1..3] then equation:=equation+'='+FluxGrid[k].cell[2,i];
22/02/2014, 20h33
mouncef

Malgré ca toujours le meme probleme
il cree les composants stinggrid apres la saisie des variables suivantes :
nombre de sommet , nombre d'arc , nombre de flux

les stringgrids seront crees selon la valeur de nflux (nombre de flux)

mais quand je veux les utiliser pour un affichage il m'indique que les strings sont non identifiés

pour etre claire:

saisie des valeurs nombre de sommet , nombre d'arcs et nombre de flux
clique sur un bouton
creation des stringgrid
utilisation ( ici se declenche l'erreur)

merci de votre aide
22/02/2014, 20h52
tourlourou

Il faudrait plus de ton code pour saisir où ça coince...

Voici la totalité du code (l'unité)

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
unit fformul;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ValEdit, ComCtrls;
 
type
  Tformul = class(TForm)
    ScrollBox1: TScrollBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label4: TLabel;
    StringGrid1: TStringGrid;
    Label5: TLabel;
    StringGrid2: TStringGrid;
    ScrollBox2: TScrollBox;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  formul: Tformul;
  sommet,arc,nflux,i,j:integer;
  f1,f2,f3,f4,f5,f6,f7,f8,f9,f10:array of real;
implementation
 
 
{$R *.dfm}
 
procedure Tformul.BitBtn1Click(Sender: TObject);
var i,j,k,ligne_memo:integer;
    equation:string;
begin
label4.Visible:=true;
label5.visible:=true;
stringgrid1.Visible:=true;
stringgrid2.Visible:=true;
sommet:=strtoint(edit1.Text);
arc:=strtoint(edit2.Text);
nflux:=strtoint(edit3.Text);
// matrice incidence sommet arc
stringgrid1.ColCount:=arc+1;
stringgrid1.rowcount:=sommet+1;
for i:=1 to sommet do stringgrid1.Cells[0,i]:=chr(64+i);
for i:=1 to arc do  stringgrid1.Cells[i,0]:=inttostr(i);
//capacité de chaque arc
stringgrid2.ColCount:=2;
stringgrid2.rowcount:=arc+1;
for i:=1 to arc do  stringgrid2.Cells[0,i]:=inttostr(i);
 
// flux
For i:=formul.Scrollbox2.ComponentCount-1 DownTo 0 Do formul.Scrollbox2.Components[i].Free;
 
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;
// formulation
 
// formuler fonction objectif
memo1.Lines[0]:='Min   ';
for i:=1 to nflux do
for j:=1 to arc do memo1.Lines[0]:=memo1.Lines[0]+'C'+inttostr(j)+inttostr(i)+' '+'X'+inttostr(j)+inttostr(i)+'+';
memo1.Lines[0]:=copy(memo1.Lines[0],0,length(memo1.Lines[0])-1);
//formuler AXk=rk
ligne_memo:=1;
for k:=1 to nflux do
for i:=2 to stringgrid1.RowCount do
 begin
 equation:='';
 for j:=2 to stringgrid1.colCount do
  begin
   if stringgrid1.Cells[j,i]='1' then equation:=equation+'X'+inttostr(j)+inttostr(k);
   if stringgrid1.Cells[j,i]='-1' then equation:=equation+'-X'+inttostr(j)+inttostr(k);
  end;
 
 if k=1 then equation:=equation+'='+formul.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];
 memo1.lines[ligne_memo]:=equation;
 ligne_memo:=ligne_memo+1;
  end;
//formuler xij <= bij
 
 
 
end;
 
end.

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
unit fformul;
 
interface
 
uses
  Windows, Messages, SysUtils, {Variants,} Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, {ValEdit,} ComCtrls;
 
type
  Tformul = class(TForm)
    ScrollBox1: TScrollBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Label4: TLabel;
    StringGrid1: TStringGrid;
    Label5: TLabel;
    StringGrid2: TStringGrid;
    ScrollBox2: TScrollBox;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  formul: Tformul;
  sommet,arc,nflux,i,j:integer;
  f1,f2,f3,f4,f5,f6,f7,f8,f9,f10:array of real;
  FluxGrids: array of TStringGrid;
 
implementation
 
 
{$R *.dfm}
 
procedure Tformul.BitBtn1Click(Sender: TObject);
var i,j,k,ligne_memo:integer;
    equation:string;
begin
label4.Visible:=true;
label5.visible:=true;
stringgrid1.Visible:=true;
stringgrid2.Visible:=true;
sommet:=strtoint(edit1.Text);
arc:=strtoint(edit2.Text);
nflux:=strtoint(edit3.Text);
// matrice incidence sommet arc
stringgrid1.ColCount:=arc+1;
stringgrid1.rowcount:=sommet+1;
for i:=1 to sommet do stringgrid1.Cells[0,i]:=chr(64+i);
for i:=1 to arc do  stringgrid1.Cells[i,0]:=inttostr(i);
//capacité de chaque arc
stringgrid2.ColCount:=2;
stringgrid2.rowcount:=arc+1;
for i:=1 to arc do  stringgrid2.Cells[0,i]:=inttostr(i);
 
// flux
For i:=Scrollbox2.ComponentCount-1 DownTo 0 Do Scrollbox2.Components[i].Free;
 
SetLength(FluxGrids, nflux);
 
for i:=1 to nflux do
begin
  FluxGrids[i-1]:=TStringGrid.Create(formul.Scrollbox2);
  with FluxGrids[i-1] 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;
end;
// formulation
 
// formuler fonction objectif
memo1.Lines[0]:='Min   ';
for i:=1 to nflux do
for j:=1 to arc do memo1.Lines[0]:=memo1.Lines[0]+'C'+inttostr(j)+inttostr(i)+' '+'X'+inttostr(j)+inttostr(i)+'+';
memo1.Lines[0]:=copy(memo1.Lines[0],0,length(memo1.Lines[0])-1);
//formuler AXk=rk
ligne_memo:=1;
for k:=1 to nflux do
for i:=2 to stringgrid1.RowCount do
 begin
 equation:='';
 for j:=2 to stringgrid1.colCount do
  begin
   if stringgrid1.Cells[j,i]='1' then equation:=equation+'X'+inttostr(j)+inttostr(k);
   if stringgrid1.Cells[j,i]='-1' then equation:=equation+'-X'+inttostr(j)+inttostr(k);
  end;
 
  if k in [1..3] then equation:=equation+'='+FluxGrid[k].cell[2,i];
 
 memo1.lines[ligne_memo]:=equation;
 ligne_memo:=ligne_memo+1;
  end;
//formuler xij <= bij
 
 
 
end;
 
end.

devrait fonctionner...

[EDIT] Ne pas oublier le SetLength(FluxGrid, 0) quand on n'a plus besoin d'adresser les grilles par le tableau ; leur libération se faisant par leur Owner = Scrollbox2.