Два вопроса по рекурсивному поиску файлов

[Raf-9600]

Откопал на просторах интернета замечательную процедуру на поиск файлов в подпапках, но возникло пару вопросов в которых я не в силах разобраться:
1. Как можно прикрутить вместо Memo вывод данных в какой-то не визуальный объект, к примеру StringList?
2. Допустим мне нужно чтобы в самом конце создаваемого процедурой списка, один раз производилось какое-то действие, к примеру memo1.Lines.Add('End'); когда я эту строчку записываю после FindClose(sRec); то слово End повторяется столько раз, сколько отработала процедура. Можно ли это как-то обойти, чтобы memo1.Lines.Add('End') отработал только один раз?

procedure TForm1.GetAllFiles(Path: string; Lb: TMemo);
var
  sRec: TSearchRec;
  isFound: boolean;

begin
   Path := IncludeTrailingBackslash(Path);
   isFound := FindFirst( Path + '*.*', faAnyFile, sRec ) = 0;
   while isFound do // Если нашли файл или папку то:
   begin
      if (sRec.Name <> '.') and (sRec.Name <> '..') then // Игнорировать служебные папки
      begin
         if (sRec.Attr and faDirectory) = faDirectory then // Если найденный файл - папка
            GetAllFiles(Path + sRec.Name, Lb) // Перезапускаем процедуру передавая ей вложенную папку
         else
         begin
            Lb.Lines.Add(Path + sRec.Name);

         end;
      end;
      Application.ProcessMessages;
      isFound := FindNext(sRec) = 0;
   end;
   FindClose(sRec);
end;

[phomm]

procedure TForm1.GetAllFiles(Path: string; SL: TStrings);
var
  sRec: TSearchRec;
  isFound: boolean;

begin
   Path := IncludeTrailingBackslash(Path);
   isFound := FindFirst( Path + '*.*', faAnyFile, sRec ) = 0;
   while isFound do // Если нашли файл или папку то:
   begin
      if (sRec.Name <> '.') and (sRec.Name <> '..') then // Игнорировать служебные папки
      begin
         if (sRec.Attr and faDirectory) = faDirectory then // Если найденный файл - папка
            GetAllFiles(Path + sRec.Name, SL) // Перезапускаем процедуру передавая ей вложенную папку
         else
         begin
            SL.Add(Path + sRec.Name);

         end;
      end;
      Application.ProcessMessages;
      isFound := FindNext(sRec) = 0;
   end;
   FindClose(sRec);
end;

procedure TForm1.MyFiles(Path: string; SL: TStrings)
begin
  MyGetAllFiles(Path, SL);
  SL.Add('End');
end;

Вызывать, например, так:

MyFiles('C:\', Memo1.Lines);
или
SL1 := TStringList.Create();
MyFiles('C:\', SL1);

Код не проверял, тут написал, ибо всё тривиально.

[Serge_Bliznykov]

phomm, +1

на форуме тема поиска файлов рассматривалась огромное множество раз. (поиск по FindFirst, посмотрите, например)
Позволю себе привести ссылочку на свой пост (хотя, по сути он такой же мой, как и всех других! )

[Raf-9600]

Сообщение от phomm

Код не проверял, тут написал, ибо всё тривиально.

Дык у меня возникает почти та же ошибка что и при использовании StringList вместо Strings, компилятор подчеркивает красным

SL.Add(Path + sRec.Name)

и пишет ошибку:


А при выводе данных в Memo всё работает отлично. Собсно поэтому и создавал тему.

[Serge_Bliznykov]

Вы наверняка забыли создать объект, который передаёте в качестве параметра SL

Сообщение от phomm

SL1 := TStringList.Create;
MyFiles('C:\', SL1);

[Raf-9600]

Serge_Bliznykov, Вы правы
Благодарю за подсказку.

[Serge_Bliznykov]

Отлично. Поздравляю.

И не забудьте, как правило, всё, что Вы в программе создали руками, нужно в своей же программе и освободить - вызывать метод SL1.Free или воспользоваться процедурой FreeAndNil( SL1 ) (это почти одно и то же. Процедура дополнительно обнуляет указатель на объект, что более безопасно в плане попыток использования указателя в программе в дальнейшем)

[Raf-9600]

У меня возникла ещё одна трудность: почему-то не получается сделать так, чтобы записываемая строка была уже отформатированной:

procedure TForm1.GetAllFiles(Path: string; SL: TStringList);
var
  sRec: TSearchRec;
  isFound: boolean;

begin
   Path := IncludeTrailingBackslash(Path);
   isFound := FindFirst( Path + '*.*', faAnyFile, sRec ) = 0;
   while isFound do // Если нашли файл или папку то:
   begin
      if (sRec.Name <> '.') and (sRec.Name <> '..') then // Игнорировать служебные папки
      begin
         if (sRec.Attr and faDirectory) = faDirectory then // Если найденный файл - папка
            GetAllFiles(Path + sRec.Name, SL) // Перезапускаем процедуру передавая ей вложенную папку
         else
         begin
             SL.Add(StringReplace(Path + sRec.Name, FirstPath,'',[]));
         end;
      end;
      Application.ProcessMessages;
      isFound := FindNext(sRec) = 0;
   end;
   FindClose(sRec);
end;

Где FirstPath это глобальная строковая переменная с изначальным путем к папке. В общем как я понял, в процедуре нельзя читать глобальные переменные. Собсно можно ли это обойти, чтобы в StringList записывались сразу отформатированные строки? Или я снова упустил какую-то мелочь?

Сообщение от Serge_Bliznykov

И не забудьте, как правило, всё, что Вы в программе создали руками, нужно в своей же программе и освободить

Дык вроде ж все переменные созданные в процедуре, живут только во время действия этой процедуры, а значит в данном случае нет смысла их вручную освобождать. Разве я ошибаюсь?

[Serge_Bliznykov]

Дык вроде ж все переменные созданные в процедуре, живут только во время действия этой процедуры, а значит в данном случае нет смысла их вручную освобождать. Разве я ошибаюсь?

старшие товарищи меня поправят, если я не прав, но, на мой взгляд, Вы ошибаетесь.
допустим, Вы написали var SL1 : TStringList;
эта переменная (ссылка на объект, == pointer) занимает в Win 32 4 байта.
Вы выделяете память под объект, грузите туда кучу строк, потом выходите из процедуры, не вызвав декструктор. Сколько памяти будет освобождено? Верно - 4 байта. А та туева куча строк так и будет висеть в памяти, отмеченная, как занятая.
Разумеется, когда Ваша программа закроется, то вся занятая программой память будет отдана системе, но каждый вызов вашей процедуры в программе будет приводит к тому, что памяти будет становится всё меньше, меньше, меньше.. это называется "memory leaks"

чтобы записываемая строка была уже отформатированной:

простите, у меня с телепатией напряги... что значит "отформатированной" ?

[Raf-9600]

Сообщение от Serge_Bliznykov

Разумеется, когда Ваша программа закроется, то вся занятая программой память будет отдана системе, но каждый вызов вашей процедуры в программе будет приводит к тому, что памяти будет становится всё меньше, меньше, меньше.. это называется "memory leaks"

Хм... Перед каждым началом обработки я вызываю для него .Clear; - судя по сведениям из диспетчера задач, это помогает освободиться от мусора.

Сообщение от Serge_Bliznykov

простите, у меня с телепатией напряги... что значит "отформатированной" ?

Отредактированная. Т.е. чтобы кусок от неё удалялся. Ну допустим есть изначальная папка "D:\Torrent Downloads\Книги\Delphi" этот путь передается в процедуру поиска файлов, которая создаёт список файлов в StringList. В StringList записываются полные пути к файлам, а необходимо чтобы записывались без этой строчки "D:\Torrent Downloads\Книги\", т.е. чтобы в результате в StringList было не:

D:\Torrent Downloads\Книги\Delphi\Библия, издание 1.doc
D:\Torrent Downloads\Книги\Delphi\Библия, издание 2.doc
D:\Torrent Downloads\Книги\Delphi\Библия, издание 3.doc
D:\Torrent Downloads\Книги\Delphi\Примеры\Drag and Drop.txt

А так:

Delphi\Библия, издание 1.doc
Delphi\Библия, издание 2.doc
Delphi\Библия, издание 3.doc
Delphi\Примеры\Drag and Drop.txt

Я конечно нашел альтернативный способ выкрутиться, и обрабатываю каждую строку из StringList после того как процедура поиска файлов завершилась, но мне просто любопытно, можно ли такое сделать сразу в той процедуре?