Wie in TMyRecord

Question

In Delphi 10 Berlin unter Windows einen allgemeinen TList mit generischen Unterlisten befreien Ich habe folgende Fragen in Bezug auf die Befreiung von generischen Listen:

Ich habe die folgende Aufzeichnung/Listenstruktur:

type 
    TMyRecord=record 
    Value1: Real; 
    SubList1: TList<Integer>; 
    SubList2: TList<Real>; 
    end; 

    TMyListOfRecords=TList<TMyRecord>; 

ich mag die Struktur mit dem folgenden Code befreien:

var 
    i: Integer; 
    AMyListOfRecords: TMyListOfRecords; 
begin 
    //other code 

    //free AMyListOfRecords and all its content 
    for i:=0 to AMyListOfRecords.Count-1 do 
    begin 
    AMyListOfRecords[i].SubList1.Free; 
    AMyListOfRecords[i].SubList2.Free; 
    end; 
    AMyListOfRecords.Free; 
end; 

Dies scheint zu funktionieren. Aber ich frage mich, ob es eine einfachere oder elegantere Lösung gibt?

Answer 1

Sie können die Schnittstelle Liste für die Unterpunkte definieren wie :

type 
    TMyRecord=record 
    Value1: Real; 
    SubList1: IList<Integer>; 
    SubList2: IList<Real>; 
    end; 

    TMyListOfRecords=TList<TMyRecord>; 

Wo IList Art ist:

type 
    IList<T> = interface 
    function Add(const AValue: T): Integer; 
    function Remove(AValue: T): Integer; 
    end; 

, wo Sie es wie folgt implementieren:

TIntfList<T> = class(TInterfacedObject, IList<T>) 
    private 
    FList: TList<T>; 
    function Add(const AValue: T): Integer; 
    function Remove(AValue: T): Integer; 

    constructor Create; 
    destructor Destroy; override; 
    end; 

{ TIntfList<T> } 

function TIntfList<T>.Add(const AValue: T): Integer; 
begin 
    Result := FList.Add(AValue); 
end; 

constructor TIntfList<T>.Create; 
begin 
    FList := TList<T>.Create; 
end; 

destructor TIntfList<T>.Destroy; 
begin 
    FList.Free; 
    inherited; 
end; 

function TIntfList<T>.Remove(AValue: T): Integer; 
begin 
    Result := FList.Remove(AValue); 
end; 

Danach können Sie Felder Ihrer Datensatz mit TIntfList.Create zuweisen können, und sie werden automatisch mit Ihren Aufzeichnungen freigegeben.

Answer 2

Sie könnten den Datensatztyp in eine Klasse umwandeln - der Overhead ist vernachlässigbar, da der Datensatz bereits Unterobjekte enthält. Kostenlose Unterobjekte in dieser Klasse destructor, und verwenden Sie

TMyListOfClasses = TObjectList<TMyClass>; 

mit OwnsObjects = True

In diesem Fall alles, was Sie brauchen, ist

AMyListOfClasses.Free;