Поле свободного объекта от Rtti

Question

Как я могу освободить поля моего объекта на Rtti в delphi (XE4)?

мне нужно освободить все поля динамически

я могу найти поля, но я сейчас не как я должен освободить их:

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; 

я стараюсь с этим, но не работает:

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

Смещение относительно указателя экземпляра. Ваш код должен быть:

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

Вы можете предпочесть использовать GetValue метод объекта Филда прочитать значение поля. И поэтому избегайте всей этой арифметики указателя.

То, что вы здесь делаете, очень ограничено. Все производные классы вынуждены соответствовать этой политике. Все поля должны быть объектами и должны принадлежать этому классу. Вы не можете иметь целочисленные поля, логические поля и т. Д. По крайней мере, вы должны попытаться уничтожить поле, которое является объектом.

Мои инстинкты говорят мне, что то, что вы пытаетесь, окажется неработоспособным.