Zugriff auf Objekt in TObjectList

[Dennis07]

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?
Gibt es dafür einen besonderen Grund?

[DieDolly]

Zitat:

BList:= nil ersetzen durch BList.Free;

Zitat:

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?

Ich würde das ganze Konzept noch einmal überarbeiten.

Man schreibt doch nicht Buttons in eine Liste, nur um sie danach wieder freizugeben. Man arbeitet mit der Liste weiter.

[Uwe Raabe]

Zitat von Dennis07:

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?

Zitat von hoika:

Aber Vorsicht!!! BList.OwnsObjects:= False vorher nicht vergessen.

Dann doch lieber gleich TList<T> , oder?

[Dennis07]

Zitat von Uwe Raabe:

Zitat von Dennis07:

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?

Zitat von hoika:

Aber Vorsicht!!! BList.OwnsObjects:= False vorher nicht vergessen.

Dann doch lieber gleich TList<T> , oder?

Ob du lieber eine TList<TMyObject> oder eine TObjectList<TMyObject> mit OwnsObjects = False verwendest, ist Geschmackssache. Ich mache es lieber immer mit TObjectList<T> , sofern ich mit Klasseninstanzen arbeite. Aber Das ist nur meine Ansicht. Des Ergebnis ist ja das selbe.

[himitsu]

Jupp, die generischen Listen haben den Vorteil, dass hier automatisch der Cast eingebaut ist, also Items direkt den richtigen Typ liefert.

Eine TComponentList hat für TComponents (alles auf der Form) auch einige Vorteile,
denn wird die Komponente freigegeben (.Free), dann löscht sie sich selbstständig aus der Liste heraus. (List.Delete wird beim Free ausgelöst)

Die generische TList<T> im NextGen (Android/iOS) kann dort auch Week-Referenzen verwenden und dann wird dann Items auf nil gesetzt, wenn die Komponente extern freigegeben wird (Free).

[Ykcim]

Hallo Zusammen,

vielen Dank für die vielen guten Anregungen. Ich habe zuvor noch nie mit einer TObjectList gearbeitet und habe daher davon keine wirkliche Ahnung.

Ich habe gerade versucht Generics.Collections in meine uses einzufügen. Ich habe noch nicht erwähnt, dass ich das Projekt gerade als Web-Application mit TMS-WebCore umsetzen möchte. Da scheinen die Generics.Collections nicht unterstützt zu werden. Der Compiler meckert:

Zitat:

[Fehler] TDesignUnit.pas(5): can't find unit "Generics.Collections"

Der Gedanke war folgender:
Ich schreibe ein Programm, dass auf unterschiedlichen Forms immer wieder diese Art von Buttons haben wird (TTMSFNCToolBarButton) Ich möchte die Captions aus einer DB-Tabelle befüllen. Dazu möchte ich in der Design-klasse, eine eigene Unit, eine Procedure schreiben, der ich bei Bedarf diese Buttons übergebe, das entsprechende Design vornehme (hier gerade nur das Caption, später aber auch noch andere Einstellungen) und dann die Liste wieder freigebe.

Delphi-Quellcode:

procedure TDesign.Design_LogIn;
var
   BList: TObjectList<TTMSFNCToolBarButton>;  // Ist das generisch? Das akzeptiert der Compiler nicht...
begin
   BList:= TOBjectList.Create;
   Try
      BList.Add(Form_LogIn.btn_login_abbruch);
      BList.Add(Form_LogIn.btn_login_ok);
      Labeling_GlowButtons(BList);   //Wenn hier die Design-Arbeiten abgeschlossen sind, brauche ich die Liste nicht mehr.
   Finally
      BList:= nil;    // Wenn ich free genommen habe, waren die Buttons zur Laufzeit von dem Form entfernt...
   End;
end;

Was bewirkt BList.OwnsObjects:= False ? Ziehe die Frage zurück...

Zitat:

OwnsObjects gets or sets whether objects in the list are owned by the list or not. If entries are owned, when an entry object is removed from the list, the entry object is freed. Create initializes this property.

Was mache ich bei der Nutzung einer TObjectList falsch?

Wie löst man denn so eine Aufgabe elleganter?

Vielen Dank für Eure Unterstützung!
Patrick

[hoika]

Hallo,
ohne das OwnsObjects=False passiert folgendes

BList:= TOBjectList.Create;
Try
BList.Add(Form_LogIn.btn_login_abbruch);
Finally
BList.Free;


Freigabe des Buttons Form_LogIn.btn_login_abbruch -> Form_LogIn.btn_login_abbruch.free
wie das aussieht???
Vielleicht ist der Abbruch-Button nicht mehr sichtbar? -> Ausprobieren
end;

[Ykcim]

Ja, das habe ich auch bemerkt und gerade in der OH gefunden...

Aber warum kann ich nicht so auf die Objekte zugreifen?
ShowMessage((ButtonList.Items[0] as TTMSFNCToolBarButton).Name); //Ist nur zum Testen
Ich kann sehen, dass zwei Objekte in der Liste vorhanden sind... ShowMessage('Anzahl Buttons: '+IntToStr(ButtonList.Count));
Das funktioniert auch nicht, wenn ich das "FREE" rausnehme...
Das verstehe ich nicht!

P.S.: Mit ShowMessages helfe ich mir gerade weiter, weil ich bei einem TMS-WebCore Projekt nicht schrittweise mit dem Debugger arbeiten kann...

[DieDolly]

Versuch mal System. Generics.Collections.

Zitat:

ohne das OwnsObjects=False passiert folgendes

Ich würde, wie erwähnt, das ganze System komplett neu machen. Es ist absoluter Quatsch erst eine Liste zu befüllen, nur um sie danach sofort wieder freizugeben.

[DieDolly]

Jetzt mach noch was als Lösung in https://www.delphipraxis.net/1453114-post17.html vorgeschlagen wurde und alles ist sauber.