关于内存的释放问题.(20分)

B

biechangjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-12

• #1

我定义了一个
type
PAbc = ^TAbc;
Tabc = record
isTrue : boolean;
value : integer;
end;
var
abc : PAbc;
A : TThreadList;

getmem(abc,sizeof(tabc));
a.add(abc); //添加
如果我用完了
a.Remove(abc); //移除后,内存释没释放呀!如果没有,怎么才能有效的释放呢!
可其它贴再给分

 

L

LSUPER

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-12

• #2

FreeMem(abc); // 删除前加入这个，List 只管理指针不会释放
a.Remove(abc);

 

L

LSUPER

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-12

• #3

一个例子：
var
cDatas: TThreadList;
cList: TList;
I: Integer;
begin
cDatas := TThreadList.Create;
with cDatas do
try
...
cList := LockList;
for I := 0 to cList.Count - 1 do
FreeMem(cList);
Clear;
UnlockList;
finally
Free;
end;
end;

 

B

biechangjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-09

• #4

接受答案了.