Webanwendung Objekte zur Laufzeit erstellen

[Dalai]

Was soll das werden?
PanelArray[i].Parent := PanelArray[i].Create(PanelArray[i]); Was ist denn ein Parent? Und wo soll dieses eine Panel hin? Musst du den Parent demzufolge erst erzeugen? Sehr wahrscheinlich nicht, und schon gar nicht kann das Objekt selbst sein eigener Parent sein.

Übrigens wäre es klasse, wenn du Screenshots nur dann verwendest, wenn sie angebracht sind; in diesen Fällen hier kann man auch die Meldung aus dem Compiler-Log kopieren und im Code auf die entsprechende Zeile verweisen.

MfG Dalai

[akio87]

ohman ihr seit die besten...

nun gehts Vielen Dank

Eine kleine Frage noch, wenn ich jetzt noch einmal den Button betätige, wie kann ich die erstellten freigeben und neu erstellen?

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;


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

[mkinzler]

Delphi-Quellcode:

for i := Low( PanelArray) to High(PanelArray) do
begin
  PanelArray[i].Free;
end;

[akio87]

Vielen Dank an Alle! Echt, ihr seid super!

klappt so, wie ich es mir vorstelle

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;

  for i := Low( PanelArray) to High(PanelArray) do
   begin
     PanelArray[i].Free;
   end;


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

     //TPanel in der höhe erweitern
     UniPanel1.Height := UniPanel1.Height + PanelArray[i].Height;

     //Button auf erstellten Panel erstellen
     ButtonArray[i] := TUniButton.Create(self);
     ButtonArray[i].Parent := PanelArray[i];
     ButtonArray[i].SetBounds(PanelArray[i].Width - 80 , PanelArray[i].Height - 30 ,75,25);
     ButtonArray[i].Caption := 'Warenkorb';
     //ButtonArray[i].OnClick := muss noch erstellt werden

     //Label setzen und Namen aus Datenbank definieren
     ArtNameArray[i] := TUniLabel.Create(self);
     ArtNameArray[i].Parent := PanelArray[i];
     ArtNameArray[i].SetBounds(10, 10 ,100,13);
     ArtNameArray[i].Caption := UniServerModule.SQLTable1.fieldByName('Hersteller').AsString + ' ' + UniServerModule.SQLTable1.fieldByName('ArtBZ').AsString;

     ArtNrArray[i] := TUniLabel.Create(self);
     ArtNrArray[i].Parent := PanelArray[i];
     ArtNrArray[i].SetBounds(10, ArtNameArray[i].Top + 20, 50, 13);
     ArtNrArray[i].Caption := UniServerModule.SQLTable1.fieldByName('ArtNr').AsString;

     //Next zeile
     if not UniServerModule.SQLTable1.EOF then
      begin
        UniServerModule.SQLTable1.Next;
      end;
   end;
end;

[mkinzler]

Jetzt wieder auf dyniamschen Array zurückstellen

PanelArray: array of TUniPanel;

SetLength(PanelArray, UniServerModule.SQLTable1.RecordCount);

[himitsu]

Wenn du dich nicht mit Arrays auskennst, warum nimmst du dann nicht gleich den OOP-Weg und verwendest eine TObjectList?

Und ich hab irgendwie das starke Gefühl, daß es sich hierbei nicht um .NET handelt.