Überprüfung ob Objekt eine generische Liste ist

[Neutral General]

Hallo,

Ich habe gerade so meine Probleme damit zu überprüfen ob ein übergebenes TObject eine generische Objektliste egal welchen Typs ist.

Der is-Operator kriegt das scheinbar nicht richtig hin:

Delphi-Quellcode:

var 
  test: TObjectList<TButton>;
begin
  // E2010 Inkompatible Typen: 'TObjectList<StdCtrls.TButton>' und 'TObjectList<System.TObject>'
  if test is TObjectList<TObject> then
    ShowMessage('compiliert nichtmal!');

  if test is TObjectList<TButton> then
    ShowMessage('compiliert und liefert true!');
end;

Getestet unter Delphi2010.

Kennt jemand ne Methode oder einen Trick um das gewünschte zu überprüfen?

Gruß
Neutral General

[s.h.a.r.k]

// edit: Code aufgrund völliger Inkorrektheit entfernt

Man sollte allgemein einfach mehr schlafen

[Neutral General]

Ich kann leider keinen Zusammenhang zwischen deiner Antwort und meiner Frage finden. Zudem ist deine Aussage auch noch falsch Jedes Objekt besitzt TObject als Basisklasse (Ausnahme: TObject selbst)

[s.h.a.r.k]

Du könntest über den String selbst laufen lassen, wobei ich das als eine eher sehr unschöne Lösung erachte. Ist ein < und > vorhanden, so ists wohl eine generische Klasse mit der Klasse innerhalb der eckigen Klammern. Diese kann man dann ja via FindClass umwandeln... Aber das ist halt eher eine Dirty-Lösung

// edit

Habs bis gerade die Generics.Collections und Generics.Defaults durchgeschaut und nichts gefunden, was helfen könnte, außer ich bin komplett blind

[Neutral General]

Ah jo die Units hab ich auch schon durchgeschaut

Wenn da was gewesen wäre, hätte ich nicht gefragt^^ Das mit den < > im Classname hatte ich auch mal kurz überlegt, ist aber keine - wie du schon sagtest - besonders schöne Lösung

[Khabarakh]

Zitat von Neutral General:

Der is-Operator kriegt das scheinbar nicht richtig hin:

Sollte er auch nicht, schließlich ist TObjectList<Y> nicht von TObjectList<X> abgeleitet, nur weil X von Y es ist (Stichwort Ko- und Kontravarianz; TObjectList<> ist auf jeden Fall invariant).
Bei solchen Fällen muss man normalerweise über Reflection gehen, á la (Prism)
test.GetType.GetGenericTypeDefinition = typeOf(List<1>) Aber auch die neue RTTI scheint dafür zu schwach zu sein, ich sehe da keine Erwähnung von Generics .

Was hast du damit überhaupt vor?

[himitsu]

Es geht leider nicht, daß man den "Typen" (falls Delphi ihn schon als Typen ansieht) auf das Generische Objekt erreichen/abfragen kann.

if test is TObjectList<T: class> then
ShowMessage('compiliert nichtmal!');

TObjectList<TObjekt> ist eine Ableitung von TObjectList<>
und TObjectList<TButton> ist auch eine Ableitung.
Es sind also Geschwister und keine Nachfahren, darum kann man diese Beiden auch nicht vergleichen.
Siehe:

Delphi-Quellcode:

type
  TMyObjectA = Class(TObject)
  End;
  TMyObjectB = Class(TMyObjectA)
  End;
  TMyObjectC = Class(TObject)
  End;
var
 X: TMyObjectC; 

if X is TObjectA then
  ShowMessage('compiliert nichtmal!');

Zitat:

[DCC Fehler] Project3.dpr(20): E2010 Inkompatible Typen: 'TMyObjectA' und 'TMyObjectC'

Hier mal die Abstammung von

Code:

TObjectList<TButton> :
TObjectList<StdCtrls.TButton> TList<StdCtrls.TButton> TEnumerable<StdCtrls.TButton> TObject

TObjectList<TObject> :
TObjectList<System.TObject>   TList<System.TObject>   TEnumerable<System.TObject>   TObject

[Neutral General]

Ja mir ist auch klar, warum der is-Operator eigentlich nicht viel Sinn macht... :/

Ich brauche das ganze, weil ich eine Klasse habe, der man ein TObject übergeben kann. Allerdings muss ich jetzt intern unterscheiden können, ob das Objekt eine Objektliste ist oder ein "einfaches" Objekt.

(Bitte keine alternativen Lösungswege - In meinem konkreten Fall muss es so gelöst werden und es geht nicht über z.B. überladene constructoren o.ä. !)

[himitsu]

Delphi-Quellcode:

if Copy(test.ClassName, 1, 12) = 'TObjectList<' then
  ShowMessage('compiliert ^_^ ');

Schade ist auch noch, daß der genischer Typ TObjectList<...> nicht von TObjectList abgeleitet ist,
somit sind diese auch nicht kompatibel.

[Neutral General]

Hallo,

Nachdem ich etwas Aufwand betrieben habe, habe ich eine bisher zuverlässig funktionierende Funktion schreiben können.
Da ich den internen Aufbau der Klassen in Delphi nicht kenne, weiß ich nicht was ich hier tatsächlich vergleiche, und dementsprechend ist das ganze natürlich wage. Das hier beruht auf Beobachtung, Erfahrung und Testergebnissen.

Delphi-Quellcode:

function IsGenericObjectList(AClass: TClass): Boolean;
const ListMagic: Array[0..7] of Byte = ($54,$4F,$62,$6A,$65,$63,$74,$4C);
begin
  Result := CompareMem(@ListMagic[0],Pointer(Integer(AClass)+$09),SizeOf(ListMagic));
end;

Das gleiche funktioniert auch für TObjectStack und TObjectQueue. Für andere habe ich es noch nicht genügend ausprobiert:

Delphi-Quellcode:

const StackMagic: Array[0..7] of Byte = ($54,$4F,$62,$6A,$65,$63,$74,$53);
const QueueMagic: Array[0..7] of Byte = ($54,$4F,$62,$6A,$65,$63,$74,$51);

Gruß
Neutral General