ClassInfo = nil ? o.O

[Neutral General]

Hi,

Was ich gerade gemerkt hab: TObject.ClassInfo = nil
Und auch das ist auch bei manchen von TObject abgeleiteten Klassen so, z.B bei TList (sowei ich das weiß) und auch dummerweise bei allen Sprites ((TSprite = class, TImageSprite = class(TSprite)) = nil
Aber ich brauch das o.O Dringend!
Was ist da los? Ist der Pointer "nur" falsch oder haben diese Klassen aus irgendeinem Grund kein ClassInfo?

Delphi-Quellcode:

class function TObject.ClassInfo: Pointer;
begin
  Result := PPointer(Integer(Self) + vmtTypeInfo)^;
end;

Was ich festgestellt habe ist das Integer(TObject) jedesmal eine andere Zahl liefert o.O Im Gegensatz zu allen anderen Klassen. Aber bei TList und TSprite sind die Zahlen konstant aber es klappt trotzdem nicht.. Also TSprite.ClassInfo = nil

Was ist das und was mache ich da am besten?
Kann man da was machen?

ADD: Hab auch aus Verzweiflung mal statt vmtTypeInfo +/- irgendwelche zahlen gemacht.. aber immer AV.. dann hab ich mir die Zahlen geben lassen bei der es keine AV gibt (try-except) und hab die ausprobiert.. Aber an der Adresse ist vielleicht irgendwas.. Aber kein Classinfo -.-^^

Gruß
Neutral General