RTTI Typ ermitteln bei generics?

[himitsu]

OK, das ist ein bissl anders:

Delphi-Quellcode:

type TSpecialRecord = TMyRecord<TSpecialClass>;

var SpecialRecord: TSpecialRecord;

if FieldInfo.FieldType.AsRecord.Handle = TypeInfo(TSpecialRecord) then

// oder

if FieldInfo.FieldType.Handle = TypeInfo(TSpecialRecord) then

Aber Ansonsten haben Records nunmal keine Vererbung,
und demnach haben TMyRecord<> und TMyRecord<irgendwas> keine Verbindung.

Allerdings ist die RTTI ja die letzen Jährchen etwas gewachsen, vielleicht bieten die neuen RTTI-Klassen ja irgendwo Zugriff auf eine neue Information, bezüglich dieser Generics.


[edit]

Delphi-Quellcode:

type
  TGenRec<T> = record
    x, y: T;
  end;
  TRec = TGenRec<Integer>;

procedure TForm5.FormCreate(Sender: TObject);
var
  y: TRttiContext;
  x: TRttiType;
begin
  y := TRttiContext.Create;
  x := y.GetType(TypeInfo(TRec));
  if X.AsRecord.Handle = TypeInfo(TRec) then
    Beep;
  if X.Handle = TypeInfo(TRec) then
    Beep;
end;

Zitat:

[DCC Fehler] Unit5.pas(37): E2134 Typ 'TRec' besitzt keine Typinformation
[DCC Fehler] Unit5.pas(38): E2134 Typ 'TRec' besitzt keine Typinformation
[DCC Fehler] Unit5.pas(40): E2134 Typ 'TRec' besitzt keine Typinformation
[DCC Fataler Fehler] Project5.dpr(5): F2063 Verwendete Unit 'Unit5.pas' kann nicht compiliert werden

tja, das war's wohl