VPF::Проблема с сохранением результатов поиска

ShadowDancer

Дата 4.6.2006, 11:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


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.
Из-за чего такие глюки ?

Это сообщение отредактировал(а) ShadowDancer - 4.6.2006, 12:21

Matematik

Дата 4.6.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

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

Quadr0

Дата 4.6.2006, 12:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:23

Демо

Дата 4.6.2006, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Можно и еще проще.
Таких примеров в инете - до дуры. 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 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

Код


program proga;
uses
  windows;

end.

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

Sunvas

Дата 15.6.2006, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

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

)

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

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

Код


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

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

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »