RTTI Typ ermitteln bei generics?

[webcss]

Hallo zusammen,

wie kann ich mit RTTI den Ursprungstyp eines generischen Types/Records ermitteln?

Delphi-Quellcode:

type
  TMyRecord<T> =record
  private
    FMySpecialType: T;
  public
    property MySpecialType: T read FMySpecialType;
  end;

  TSpecialType= class(TObject);

var
  SpecialRecord= TMyRecord<TSpecialClass>;

Wie kann ich mittels RTTI prüfen, ob SpecialRecord vom Typ TMyRecord ist?

Gruss Clemens

[himitsu]

Den Typ "TMyRecord" gibt es nicht.
Jeder Typ, welcher über TMyRecord<...> erstellt wird, stellt einen eigenständigen Typen dar.

PS: Records kennen keine Vererbung


SpecialRecord kann und muß also immer vom Typ TMyRecord<TSpecialClass> sein.

Es sei denn du manipulierst den dahinterligenden Speicherbereich, unter umgehung aller Sicherheitsmaßnahmen, aber dann ist eh alles egal, da man sowas nicht bestimmen/auslesen kann ... egal was für Bytes in dem Speicher rumliegen es sind und bleiben irgendwelche Bytes und man kann nicht bestimmen daß diese Bytes irgendwas bestimmtes darstellen sollen.

[webcss]

Sorry, das ist mir auch klar, aber:

über RTTI kann ich einen beliebigen Typ abfragen. Nun will ich wissen, ob mein Typ einer bestimmten Deklaration folgt.

bisher mache ich das so:

Delphi-Quellcode:

...
tkRecord: if AnsiStartsText('TMyRecord', FieldInfo.FieldType.AsRecord.Name) then; //aha!! ist TMyRecord
...

Funktioniert soweit, wollte nur wissen, ob's nicht auch eleganter geht?!

[Highttower]

Zitat:

Zitat von webcss (Beitrag 1051463)

Hallo zusammen,

wie kann ich mit RTTI den Ursprungstyp eines generischen Types/Records ermitteln?

Delphi-Quellcode:

type
  TMyRecord<T> =record
  private
    FMySpecialType: T;
  public
    property MySpecialType: T read FMySpecialType;
  end;

  TSpecialType= class(TObject);

var
  SpecialRecord= TMyRecord<TSpecialClass>;

Wie kann ich mittels RTTI prüfen, ob SpecialRecord vom Typ TMyRecord ist?

Gruss Clemens

SpecialRecord ist IMMER vom Typ TMyRecord! Verwechsle nicht Klasse und Generic ;).

@EDIT, bin mir beim 2ten mal drüber lesen aber nicht mehr ganz sicher :(

[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 :stupid:

[webcss]

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

und genau das funktioniert nicht, da der Compiler einen TSpecialRecord<T> erwartet.
Sieht so aus als bliebe es bei meiner Variante...

[Stevie]

Zitat:

Zitat von himitsu (Beitrag 1051495)

tja, das war's wohl :stupid:

Yay Delphi XE oder Workaround für Delphi 2010.

[webcss]

Zitat:

Zitat von Stevie (Beitrag 1051549)

Zitat:

Zitat von himitsu (Beitrag 1051495)

tja, das war's wohl :stupid:

Yay Delphi XE oder Workaround für Delphi 2010.

Ein Grund mehr, demnächst mal auf XE "upzugraden" <- perfektes denglisch :lol: