这段代码是否内存泄露呢？

[ahpei]

摘自 SakMail 组件。
function TSakPOP.RetrieveAllMessagesExt( var SakMsgList: TSakMsgList;
const OnlyHeaders: boolean): integer;
var
i, count: integer;
aSakMsg: TSakMsg;
begin
SakMsgList.clear;
count := 0;
for i := 1 to FMsgsCount do
begin
if FMessagesDeleted.IndexOf( intToStr( i)) = -1 then
begin
aSakMsg := TSakMsg.Create( self);

if OnlyHeaders then
RetrieveMessageOnlyHeaders( i, aSakMsg)
else
RetrieveMessage( i, aSakMsg);

if FCanceled then
begin
aSakMsg.Free;
break;
end else
begin
SakMsgList.Add( aSakMsg);
inc( count);
end;
end;
end;
result := count;
end;

[zleeway]

如果非FCanceled 就没有执行aSakMsg.Free
所以要把放到IF语句的后面,只要Create过,就要Free

[ahpei]

我也觉得是这样,很多组件其实存在大量问题,
现在这段代码就明显的没有Free了.

[zjybestzjybest]

如果 TSakMsgList是TCOMPONENTLIST的子类不会有泄露，因为当TSakMsgList被FREE掉的时候他所有的ITEM都要被他调用FREE

[INeedCa]

看不出来有什么泄漏。

[INeedCa]

SakMsgList会管理它的Item的，所以它仅仅析构没有加入SakMsgList的aSakMsg。

另，如果在加入SakMsgList之后就析构了这个aSakMsg，外部调用SakMsgList中的Item时会发生错误。

[INeedCa]

你察看一下SakMsgList在Clear时是否析构了它的Items，没有的话，就有问题了。

[ahpei]

大大增长见识。佩服.