Вывести только пути к файлам

[Shouldercannon]

Получаю содержимое всей папки

procedure GetAllFiles(Path: String; FileList: TStringList);
var
  sRec: TSearchRec;
  isFound: Boolean;
begin
  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, FileList);
      FileList.Add(Path + '\' + sRec.Name);
    end;

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

  FindClose(sRec);
end;

Но есть проблема, также выводятся пути на сами папки. Где их можно отсечь в процедуре?

Можно отсеивать с помощью ExtractFileExt,проверяя на пустоту. Может ещё какие варианты есть?

[kutani]

if (sRec.Attr and faDirectory) <> faDirectory then
      FileList.Add(Path + '\' + sRec.Name);

[Shouldercannon]

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

if (sRec.Attr and faDirectory) <> faDirectory then
      FileList.Add(Path + '\' + sRec.Name);

      if (sRec.Attr and faDirectory) <> faDirectory then GetAllFiles(Path + '\' + sRec.Name, FileList);
      FileList.Add(Path + '\' + sRec.Name);

Так наоборот получилось, от чего пытаюсь избавиться

[min@y™]

else забыл.

if (sRec.Attr and faDirectory) = faDirectory 
  then GetAllFiles(Path + '\' + sRec.Name, FileList) 
  else FileList.Add(Path + '\' + sRec.Name);

Но для ускорения разработки предлагаю взять готовую отлаженную функцию.
Их есть у меня.

[FaTaL]

Что нужно то? Если только имена файлов во всех подпапках, то Directory.GetFiles а уж из полного пути имя файла извлечь не проблема.

[kutani]

Так наоборот получилось, от чего пытаюсь избавиться

что наоборот? К существующему коду нужно всего лишь было добавить мое условие, а не убирать ваше. Что за самодеятельность?

if (sRec.Name <> '.') and (sRec.Name <> '..') then
    begin
      if (sRec.Attr and faDirectory) = faDirectory then GetAllFiles(Path + '\' + sRec.Name, FileList);

      if (sRec.Attr and faDirectory) <> faDirectory then
       FileList.Add(Path + '\' + sRec.Name);

    end;