TObjectList mit gemeinsamen Eigenschaften

[norwegen60]

Hallo,

ich habe eine TObjectList die unterschiedliche Klassen verwaltet, die nicht auf eine gemeinsame Basis zurück geführt werden können.
Jetzt möchte ich jedem Eintrag in der Liste zusätzliche, für alle Einträge gleiche, Eigenschaften anhängen.

Geht das?

Beispiel:

Delphi-Quellcode:

  TAuto = class
    ..
  end;

  THaus = class
    ..
  end;

  TObjList = class(TObjectList<TObject>)
  private
    FId: Integer;
    FName: string;
  public
    property Id: Integer read FId write FId;
    property name: string read FName write FName;
  end;

Jetzt möchte ich z.B. jedes mal wenn die Liste erstellt wird, jedem Eintrag (also dem Auto, dem Haus, ...) die Uhrzeit anhängen wann der Eintrag in die Liste aufgenommen wurde. Sobald die Liste gelöscht wird, ist auch diese Information wieder gelöscht.
Das Beispile ist nur zum deutlich machen meines Anliegens und nicht um über Sinn oder Unsinn des Konstrukts zu diskutieren. Real geht es darum den Status einzelner Einträge in der Liste zu überwachen.
Wo immer möglich verwende ich schon heute klassifizierte Listen.


Grüße und Danke
Gerd