Советы по Delphi

         

Как избавиться от утечек памяти при использовании FindFirst, FindNext?


Своим опытом делится Олег Кулабухов:

Необходимо использовать эти функции, явно указывая их определение в модуле SysUtils. Ниже приведен пример:

    begin
Result := SysUtils.FindFirst(Path, Attr, SearchRec);
while Result = 0 do
begin

ProcessSearchRec(SearchRec);
Result := SysUtils.FindNext(SearchRec);
end;
SysUtils.FindClose(SearchRec);
end;

[001865]



Содержание раздела