Теряется память!!!!

← →
snake1977 (2004-02-04 13:11) [0]

Здравствуйте!! Подскажите, где в этой процедуре происходт потеря памяти??? при каждом ее вызове, память занимаемая программой увеличивается на 56кб :((. причем ничего в дирректории нет, т.е. список передается пустым и возвращзается пустым.

Procedure ScanDir(InitPath,Mask:String; FileList:TStrings);
Var sr:TSearchRec;
Begin
FindFirst(InitPath+"\"+Mask,faAnyFile,sr);
repeat
if (sr.Name<>"..") and (sr.Name<>".") and (sr.Name<>"") Then
Begin
if (sr.Attr and faDirectory)<>faDirectory Then FileList.Append(InitPath+"\"+sr.Name);
End;
until FindNext(sr)<>0;
FindFirst(InitPath+"\*.*",faDirectory,sr);
repeat
if (sr.Name<>"..") and (sr.Name<>".") and (sr.Name<>"") Then ScanDir(InitPath+"\"+sr.Name,Mask,FileList);
until FindNext(sr)<>0;
End;

← →
Тимохов © (2004-02-04 13:13) [1]

FindClose кто делать будет?
И еще - мы не знам, что у тебя в scandir?

← →
Тимохов © (2004-02-04 13:14) [2]

Кусочек справки

Note: FindFirst allocates resources (memory) which must be released by calling FindClose.

← →
Devel (2004-02-04 13:16) [3]

F1 + FindFirst:
Note: FindFirst allocates resources (memory) which must be released by calling FindClose.

← →
snake1977 (2004-02-04 13:17) [4]

а FindClose делаеться перед концом кадого вызова процедуры или в конце всех рекурсивных цепочек??

объясните "И еще - мы не знам, что у тебя в scandir?" что имелось ввиду??
параметром преедается каталог и маска поиска . Сканируемый каталог имеет около 10 подкаталогов в каждом из которых есть еще по 3 подкаталога, где уже находяться файлы.

← →
Dimka Maslov © (2004-02-04 13:18) [5]

FindClose - перед последним endом

← →
snake1977 (2004-02-04 13:20) [6]

поставил :)
тпереь по 8кб теряется :((

Procedure ScanDir(InitPath,Mask:String; FileList:TStrings);
Var sr:TSearchRec;
Begin
FindFirst(InitPath+"\"+Mask,faAnyFile,sr);
repeat
if (sr.Name<>"..") and (sr.Name<>".") and (sr.Name<>"") Then
Begin
if (sr.Attr and faDirectory)<>faDirectory Then FileList.Append(InitPath+"\"+sr.Name);
End;
until FindNext(sr)<>0;
FindFirst(InitPath+"\*.*",faDirectory,sr);
repeat
if (sr.Name<>"..") and (sr.Name<>".") and (sr.Name<>"") Then ScanDir(InitPath+"\"+sr.Name,Mask,FileList);
until FindNext(sr)<>0;
FindClose(sr);
End;

← →
snake1977 (2004-02-04 13:21) [7]

пардон :))
не заметил что два раза вызывается findFirst

findclose - для кадого findfirst.

Высказываение "И еще - мы не знам, что у тебя в scandir?" прошу снять - не заметил, что это просто рекурсия - подумал, что еще некий метод. Виноват.

Еще TSearchRec, наверное, надо free делать

Теряется память!!!! Найти похожие ветки