Webanwendung Objekte zur Laufzeit erstellen

[akio87]

Hallo,

wenn Du schon so fragst, anscheint nirgends?

wie muss das dann aussehen? Ich bekomm dann eine Fehlermeldung "Inkompatible Typen" (Siehe Anhang)

Self gibt ebenfalls die Fehlermeldung aus, wie oben im Screenshot

Code:

PanelArray: array[1..999] of TUniPanel;

Code:

procedure Tfmstart1.UniButton1Click(Sender: TObject);
var
 i: Integer;
begin
  UniServerModule.SQLTable1.Active := false;
  UniServerModule.SQLTable1.TableName := 'artikelliste';
  UniServerModule.SQLTable1.Active := true;
  UniServerModule.SQLTable1.Open;

  SetLength(PanelArray, 999);
  UniServerModule.SQLTable1.First;
  For i := 1 to UniServerModule.SQLTable1.RecordCount do
   begin
     //Panel erstellen
     PanelArray[i] := TUniPanel.Create(fmstart1.UniPanel1);
     PanelArray[i].Parent := PanelArray[i].Create(PanelArray[i]);
     PanelArray[i].SetBounds(0,100*i -100,UniPanel1.Width,100);
     PanelArray[i].Name := 'ArrayPanel' + IntToStr(i);