关于tlist,该如何解决

关于tlist帮我解释一下这段代码的意思,谢谢online是tlist类变量,while(online.count 0)begindispose(onli

关于tlist
帮我解释一下这段代码的意思,谢谢
online是tlist类变量,
while(online.count> 0)
begin
dispose(online.first);
online.delete(0);
end

[解决办法]
//只要列表中有内容,就循环执行
while(online.count> 0)
begin
//释放列表第一个元素指向的内存
dispose(online.first);
//删除列表的第一项
online.delete(0);
end