Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Проблема с сохранением результатов поиска

Автор: ShadowDancer 4.6.2006, 11:12

Код


procedure ScanDir(Dir: string;IncludeFiles: Boolean);
var
  SearchRec: TSearchRec;
  SL  : TStringList;
begin
SL := TStringList.Create;
if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
if FindFirst(Dir + '*.*', faDirectory, SearchRec) = 0 then
 begin
 repeat
 if (SearchRec.Attr and faDirectory = faDirectory) and
 (SearchRec.Name[1] <> '.') then begin
   if (SearchRec.Attr and faDirectory > 0) then
   ScanDir(Dir + SearchRec.Name, IncludeFiles);
   end
   else if IncludeFiles then
   if dir+SearchRec.Name[1] <> dir+'.' then
{1}   Form1.Memo1.lines.add(dir+SearchRec.Name);
{2}   SL.add(dir+SearchRec.Name);
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
  SL.SaveToFile('C:\File.txt');
  SL.Free;
 end;
end;

С помощью этого кода, можно найти файлы в паке которую указал и в его подпапках.
Результат выводиться в мемо очень даже хорошо, все файлы все папки, а если поменять строки {1} и {2}, то результат совсем другой.
В программе нельзя использовать StdCtrls.
Из-за чего такие глюки ?

Автор: Matematik 4.6.2006, 11:32

Ты в каждой рекурсии сохраняешь стринглист

Автор: Quadr0 4.6.2006, 12:17

...

Автор: Демо 4.6.2006, 12:25

Можно и еще проще.
Таких примеров в инете - до дуры. smile

Код


procedure GetFilesSimple(const aPath: String;aListFile: TStringList);
var
  SR: TSearchRec;
  tPath: String;
begin
  tPath := IncludeTrailingBackSlash(aPath);
  if FindFirst(tPath+'\*.*',faAnyFile,SR)=0 then
  begin
    try
      repeat
        if (SR.Name='.') or (SR.Name='..') then Continue;
        if (SR.Attr and faDirectory)<>0 then GetFilesSimple(tPath+SR.Name,aListFile);
        aListFile.Add(tPath+SR.Name);
      until FindNext(SR)<>0;
    finally
      Sysutils.FindClose(SR);
    end;
  end;
end;

Автор: ShadowDancer 14.6.2006, 22:45

У меня нормально эти процеДУРЫ не работают. Если я использую их в программе с подключеными: Forms или StdCtrls (ну или что там много весит smile

), то всё работает ОК, а если в программе такого вида:

Код


program proga;
uses
  windows;

end.

то у меня сохраняются только пути к папкам и пути к файлам в том каталоге, который указал.
Напомню: мне нужно найти файлы и папки в каталоге, а потом ещё и файлы во внутренних каталогах, а потом записать всё это в текст. файл.

Автор: Sunvas 15.6.2006, 01:13

Цитата(ShadowDancer @ 4.6.2006, 11:12

)

а если поменять строки {1} и {2}, то результат совсем другой.

Конечно! Ведь у тебя строка {1} выполняется только если выполняется условие

Код


dir+SearchRec.Name[1] <> dir+'.'

.
A строка {2} всегда.