~~~关于泛类型TList<>赋值的疑惑，求教~~~

[伤影]

以下是一个简单的示例；

type
TR = record
Num: Integer;
end;
TL2 = TList<TR>;

TL1 = TList<TL2>;


procedure Init();
var
L1 : TL1;
L2 : TL2;
R : TR;
i : Integer;
begin
L1 := TL1.Create;
for i := 0 to 10 do
begin
R.Num := i;
L2 := TL2.Create;
L2.Add(R);
L1.Add(L2);
end;
end;

L2这个变量，不能在L1.Add后释放，这样L2反复的Create让我很不安，求教这样写是否正确？

[伤影]

一分都没有了，只能发这了，抱歉！

[cqs6616]

链表套链表 这个数据类型比较少见, 并且L2链表只有一个数据,

[看那山瞧那水]

L2当然不能释放了，L1.Add(L2)后，L1来管理L2了，L1释放时，自动释放所有L2（默认）

[伤影]

多谢楼上的回答，确实，最后循环释放L2，再释放L1即可，非常感谢

[看那山瞧那水]

sorry，错了，LIST没有自动管理，TobjectList才自动管理。 这个和LIST添加指针类似，L1释放时，先循环释放L2