Как избавиться от утечек памяти при использовании 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]
