Показ всех имен файлов в каталоге[Delphi]

[sergey31]

Добрый день всем!
Возник такой вопрос, как можно получить названия всех имен файлов в каталоге, для записи их в текстовый файл.
Если кто работал с командной строкой Linux, тогда то что я прошу будет аналогом команды

$ ls каталог1/каталог2 > список.txt

(может так понятнее объяснил)

[Kn793]

Используйте FindFirst, FindNext и SetCurrentDir.
Или вот, как-то писал файловый менеджер:

type
  Ttext = array[0..500] of string;

...

uses
  SysUtils,ShellAPI;

...

Function GetSp(dir,name:string; folder,hidesys:boolean):Ttext;
var
	kol,typ:integer;
	files:Ttext;
  searchResult:TSearchRec;
Begin
	kol := 1;
  SetCurrentDir(dir);
  If folder = True then // Нахождение папок
    if hidesys=true then begin //всех
      if FindFirst('*', faDirectory+faSysFile+faHidden, searchResult) = 0 then if (searchResult.attr and faDirectory) = faDirectory then begin
        files[kol] := searchResult.Name;
        If (files[kol]<>'.')and(files[kol]<>'..') then kol := kol + 1;
      end;
      while  FindNext(searchResult) = 0 do if (searchResult.attr and faDirectory) = faDirectory then begin
        files[kol] := searchResult.Name;
        If (files[kol]<>'.')and(files[kol]<>'..') then kol := kol + 1;
      end
    end
    else begin //нормальных
      if FindFirst('*', faDirectory, searchResult) = 0 then if (searchResult.attr and faDirectory) = faDirectory then begin
        files[kol] := searchResult.Name;
        If (files[kol]<>'.')and(files[kol]<>'..') then kol := kol + 1;
      end;
      while  FindNext(searchResult) = 0 do if (searchResult.attr and faDirectory) = faDirectory then if (searchResult.attr and faDirectory) = faDirectory then begin
        files[kol] := searchResult.Name;
        If (files[kol]<>'.')and(files[kol]<>'..') then kol := kol + 1;
      end;
    end
  else // нахождение файлов
    if hidesys=true then begin //всех
      if FindFirst('*', faAnyFile, searchResult) = 0 then if (searchResult.attr and faDirectory) <> faDirectory then begin
        files[kol] := searchResult.Name;
        kol := kol + 1;
      end;
      while  FindNext(searchResult) = 0 do if (searchResult.attr and faDirectory) <> faDirectory then begin
        files[kol] := searchResult.Name;
        kol := kol + 1;
      end;
    end else begin //нормальных
      if FindFirst('*', faAnyFile, searchResult) = 0 then if ((searchResult.attr and faHidden) <>faHidden)and((searchResult.attr and faSysFile) <>faSysFile)and((searchResult.attr and faDirectory) <> faDirectory) then begin
        files[kol] := searchResult.Name;
        kol := kol + 1;
      end;
      while  FindNext(searchResult) = 0 do if ((searchResult.attr and faHidden) <>faHidden)and((searchResult.attr and faSysFile) <>faSysFile)and((searchResult.attr and faDirectory) <> faDirectory) then begin
        files[kol] := searchResult.Name;
        kol := kol + 1;
      end;
    end;
  files[0] := IntToStr(kol-1);
  GetSp := files;
  FindClose(searchResult);
end;

Входные параметры: folder - если true, то ещит папки, false - файлы, hidesys - показывать все или только не скрытые, не системные. dir - думаю понятно, а name уже не помню вроде не используется, указывайте ''
На выходе массив из стрингов, [0] - количество файлов? остальное - имена.

[sergey31]

Kn793 - Большое спасибо, выручили.
Тему можно закрывать.