Objekte gezielt aufrufen

[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