Object dynamisch in einem Array erzeufen

[DeddyH]

Es gibt btw. auch noch TComponentList.

[David Martens]

Also ich finde Templates nicht schwierig.

Im Bezug auf mein voriges Posting:

- das erste Listing 1 zu 1 übernehmen
- der zweite Listing ist das Objekt das in der Liste gespeichert werden, ein ganz normales Objekt. Das hat nichts mit dem Template zu tun.
- das dritte Listing macht jetzt den Trick, dazu kann man einfach mein Listing nehmen und an den entscheidenden Stellen ändern. (Bei uses die Unit angeben und beim 1. type die Klasse angeben, ab dem 2. type KANN der Name der Liste geändert werden.)

Benutzung wie normales TList mit Typisierung.

Delphi-Quellcode:

  ObjectX := TObjectX.Create(...);
  ObjectXList := TObjectXList.Create(...);

  ObjectX.blabla := ....
  ...

  ObjectXList.Add(Object);

  ...
  ...

  ObjectXList.Items[i].blaba.....   (und nicht TObjectX(ObjectXList.Items[i]).blaba) oder
  ObjectXList[i].blaba.....         (und nicht TObjectX(ObjectXList[i]).blaba)

Hat den entscheidenden Vorteil, daß in der Liste immer Objekte vom gewünschten Typ sind und keine Fehler produziert wenn ein falsches typecasting (weil nicht nötig ) gemacht wird.

[Luckie]

Wo wird hier was der Liste hinzugefügt:

Delphi-Quellcode:

   // dynamisch Komponenten erzeugen und in die Liste packen
   for i := 0 to 10 do
   begin
      lbl := TLabel.Create(FMyList {<==});
      lbl.Caption := Format('Label %d',[i]);
      lbl.Top := i * 15;
      lbl.Left := i * 9;
      lbl.Parent := Self;
   end;

[schlecki]

Zitat von Luckie:

Wo wird hier was der Liste hinzugefügt:

Delphi-Quellcode:

   
      lbl := TLabel.Create(FMyList {<==});

hier

Gruß
schlecki

[edit]wurde aber auch schon in #14 erwähnt[/edit]

[Luckie]

Wird da nicht nur der Besitzer gesetzt?

[Sir Rufo]

Das wurde doch schon in #15 angesprochen

[Luckie]

Das ist der Schlüsselsatz:

Zitat:

Dadurch das du FMylist als sogannten Owner (Besitzer) im Create angegeben hast,
landet das neue Label in FMyList.

Danke für den Hinweis.