[RTTI/Generics] verschiedene Generische klassen in Dictionary?

[himitsu]

Die Vererbung bei den Generics ist echt sch***, bzw. garnicht vorhanden.
Es gibt keinen Basistypen ala TConVar für dein TConVar<irgendwas>.

Rate mal, warum TList und TList<T> nicht kompatibel sind.


Soll heißen, wenn du mehrere Typen von einer generischen Klasse ableitest, dann sind diese nicht zueinander kompatibel.

Du kannst sie höchstens in eine billige TList packen, bzw. in Listen, welche den Basistyp TObjekt benutzen.



Sowas währe kompatibel zueinander, da alles auf das selbe TConVar zurückgeht.

Delphi-Quellcode:

TConVar = class
    m_sName, m_sDesc: String;
    m_flags: ConVarFlags;
    m_value: Pointer;
    m_type: TRTTIType;
  public
    function GetValue<T>: T; overload;
    procedure SetValue<T>(Value: T; Force: Boolean); overload;
    function TestFlag(flag: ConVarFlag): Boolean;

    property Name: String read m_sName;
    property Description: String read m_sDesc;
    property Flags: ConVarFlags read m_flags;
    property vType: TRTTIType read m_type;
  end;

oder

Delphi-Quellcode:

TConVar = class
    m_sName, m_sDesc: String;
    m_flags: ConVarFlags;
    m_value: TObject;
    m_type: TRTTIType;
  public
    function GetValue<T: object>: T; overload;
    procedure SetValue<T: object>(Value: T; Force: Boolean); overload;
    function TestFlag(flag: ConVarFlag): Boolean;

    property Name: String read m_sName;
    property Description: String read m_sDesc;
    property Flags: ConVarFlags read m_flags;
    property vType: TRTTIType read m_type;
  end;