Re: Вопросы по исходному коду
Добавлено: 27 мар 2015, 14:16
Мда. Похоже код должен быть вот такой:
- Код: Выделить всё
if FValidFindData then begin
repeat
if IsNeedProcess(FFindFileData) then begin
AFileName := FFolderNameFromRoot + FFindFileData.cFileName;
Result := True;
end;
FValidFindData := Windows.FindNextFileW(FFindHandle, FFindFileData);
until (not FValidFindData) or Result ;
end;