Free Object's Field Von Rtti

Question

Wie kann ich Felder meines Objekts von Rtti in Delphi (XE4) freigeben?

Ich brauche alle Felder frei dynamisch

I Felder finden, aber ich weiß jetzt nicht, wie ich sie befreien sollte:

destructor TKnBase.Destroy; 
var 
    AContext: TRttiContext; 
    AField: TRttiField; 
begin 
    for AField in AContext.GetType(Self.ClassInfo).GetFields do 
    begin 
    -->free filed (AField) 
    end; 

    inherited; 
end; 

ich versuche, mit diesem aber nicht funktioniert:

destructor TKnBase.Destroy; 
type 
    dp = ^TObject; 
var 
    AContext: TRttiContext; 
    AField: TRttiField; 
    p: dp; 
begin 
    for AField in AContext.GetType(Self.ClassInfo).GetFields do 
    begin 
    p := dp(NativeInt(AField) + AField.Offset); 
    TObject(p^).Free; 
    end; 

    inherited; 
end; 

Answer 1

Der Offset ist relativ zum Instanzzeiger. Der Code sollte sein:

p := dp(NativeInt(Self) + AField.Offset); 

Sie könnten das Feld Objekt GetValue Methode verwenden möchten den Wert des Felds zu lesen. Und so vermeiden Sie all diese Zeigerarithmetik.

Was Sie hier tun, ist sehr begrenzt. Alle abgeleiteten Klassen müssen diese Richtlinie anpassen. Alle Felder müssen Objekte sein und dieser Klasse gehören. Sie können keine Integer-Felder, boolesche Felder usw. haben. Zumindest sollten Sie nur versuchen, Felder, die Objekte sind, zu zerstören.

Mein Instinkt sagt mir, dass das, was Sie versuchen, sich als unbrauchbar erweisen wird.