关于不能释放内存的问题 太难了 ( 积分: 100 )

代码如下:
function EnumFileInQueue(pathChar):Longint;stdcall;
var
searchRec:TSearchRec;
found:Integer;
tmpStr:String;
curDir:string;
dirs:TQueue;
pszDir: PChar;
begin
Result:=0;//查找结果(文件数)
dirs:=TQueue.Create;//创建目录队列
dirs.Push(strnew(path));//将起始搜索路径入队
pszDir := dirs.Pop;
curDir:=StrPas(pszDir);//出队
StrDispose(pszdir);
{开始遍历,直至队列为空(即没有目录需要遍历)}
while (True) do
begin
//加上搜索后缀,得到类似'c:/*.*' 、'c:/windows/*.*'的搜索路径
tmpStr:=curDir+'/*.*';
//在当前目录查找第一个文件、子目录
found:=FindFirst(tmpStr,faAnyFile,searchRec);
while found=0 do
//找到了一个文件或目录后
begin
//如果找到的是个目录
if (searchRec.Attr and faDirectory)<>0 then
begin
{在搜索非根目录(C:/、D:/)下的子目录时会出现'.','..'的&quot;虚拟目录&quot;
大概是表示上层目录和下层目录吧。。。要过滤掉才可以}
if (searchRec.Name <> '.') and (searchRec.Name <> '..') then
begin
{由于查找到的子目录只有个目录名，所以要添上上层目录的路径
searchRec.Name = 'Windows';
tmpStr:='c:/Windows';
加个断点就一清二楚了
}
tmpStr:=curDir+'/'+searchRec.Name;
{将搜索到的目录入队。让它先晾着。
因为TQueue里面的数据只能是指针,所以要把string转换为PChar
同时使用StrNew函数重新申请一个空间存入数据，否则会使已经进
入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。}
dirs.Push(StrNew(PChar(tmpStr)));
end;
end
//如果找到的是个文件
else begin
{Result记录着搜索到的文件数。可是我是用CreateThread创建线程
来调用函数的，不知道怎么得到这个返回值。。。我不想用全局变量}
Result:=Result+1;
//把找到的文件加到Memo控件
//Form1.Memo1.Lines.Add(curDir+'/'+searchRec.Name);
end;
//查找下一个文件或目录
found:=FindNext(searchRec);
end;
{当前目录找到后，如果队列中没有数据，则表示全部找到了；
否则就是还有子目录未查找，取一个出来继续查找。}
if dirs.Count > 0 then
begin
pszDir := dirs.Pop;
curDir:=StrPas(pszDir);
StrDispose(pszdir);//此处释放
end
else
break;
end;
//释放资源
dirs.Free;
FindClose(searchRec);
end;
为什么还是会出现每调用一次 内存不断加大呢？
不解了 请知道的朋友 赐教下

代码太长了点,看了有点眼花

在入队的时候必须要重新申请内存不然指针就乱了 但是我在出队之后怎么就释放不了呢？
或者是其他什么原因造成我再次调用的时候内存不断加大呢

除了你自己创建的对你外，系统还会建立其它的对象，所以才这样的。
你用DLL试一试应该就不这样了。

很可能是dirs.Free是只清了指针..没有释放内存啊

查找文件的处理是这样的逻辑：
FindFirst(..., F);
try
....
finally
FindClose(F);
end;

不是:
while True do {
FindFirst(..., F);
...
}
FindClose

请QQ在线朋友看看清楚 你的说法好象有点文不对题吧

恩
问题解决

多人接受答案了。