Bonjour,

J'utilise des composants dynamique que je voudrais stocker dans un tableau dynamique

Par contre à la création d'un second composant j'ai un message de débordement de pile. Voici mon code

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
var
  TabComponent  : array of TComponent
 
 for i:=0 to length(FLD_Label)-1 do
    begin
      Setlength(TabComponent, i+1);
 
     TabComponent[i] := TDBedit.Create(self);
     with TabComponent[i] do
     begin
       Name := FLD_Type[i]+inttostr(i);
       Parent := ScrollBox1;
       Left := Left_value;
       Top :=  Top_Value;
       Width := DBEdit_Code.Width;
     end;
 
    with TLabel.Create(self) do
    begin
      Name := 'Label'+inttostr(i);
      Parent := ScrollBox1;
      Left := Left_value;
      Top :=  Top_Value -15 ;
      Caption := FLD_Label[i]+' :';
    end;
end;
Merci de votre aide

[edit]Balises de code ajoutées par Pascal Jankowski[/edit]