Überprüfung ob Objekt eine generische Liste ist

[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