Objekte gezielt aufrufen

[Tod787]

Zitat:

Zitat von Sherlock

Delphi-Quellcode:

liste.add(TObjekt.create('Test1'));
liste.add(TObjekt.create('Test2'));

Allein wegen dieser beiden Zeilen ist das ganze bisher doch sowieso eher akademischer Natur.

;)

Sherlock

Sorry dir nicht folgen. Das ist ein Beispiel aus dem Forum.

Also eine Liste in einer Liste? Wie wird das denn realisiert? Und vor allem wie sprechen ich das Übergeordnete bzw. das Untergeordnete Objekt an?

[Sherlock]

TObjekt gibts halt nicht, das ist alles ;)

Sherlock

[Sir Rufo]

Ein Liste in einer Liste ... hmmm ... schauen wir uns das einmal an ...

Code:

Liste  <--- TObjectList
+--Liste  <--- TObjectList
|  +--Eintrag  <--- TObject
|  +--Eintrag  <--- TObject
+--Eintrag  <--- TObject
+--Eintrag  <--- TObject
+--Liste  <--- TObjectList
   +--Eintrag  <--- TObject
   +--Liste  <--- TObjectList
      +Eintrag  <--- TObject

Also als Ausgangspunkt haben wir eine TObjectList (klar, wir wollen ja Objekte in einer Liste haben)
Jetzt gibt es als gültige Listenelemente einmal TObject und weil wir ja nochmals Listen wollen auch TOobjectList.
Das geht, weil

Code:

TObject
+--TList
   +--TObjectList

TObjectList ein Nachfahr von TObject ist, und eine TObjectList kann alle Elemente Speichern, die sich irgendwie von TObject ableiten lassen.

Und das nennt man dann OOP.

Wie kann man prüfen, ob das gefundene Objekt eine Liste ist:

Delphi-Quellcode:

if Liste[ idx ] is TObjectList
then
  // Es ist eine Liste
else
  // Es ist nur ein schnödes Objekt

cu

Oliver