Как объединить результаты нескольких вызовов tdirectory.getfiles в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

var
  files: TArray<string>;
  dir: string;
begin
  dir := 'C:MyFolder';
  SetLength(files, 0);
  for var filePath in TDirectory.GetFiles(dir, '*.txt', TSearchOption.soTopDirectoryOnly) do
    files := files + [filePath];
  for var filePath in TDirectory.GetFiles(dir, '*.log', TSearchOption.soTopDirectoryOnly) do
    files := files + [filePath];
  // объединяем все элементы массивов в один массив
  files := TArray.Concat<string>(files1, files2);
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

var
  files: TStringList;
  dir: string;
begin
  dir := 'C:MyFolder';
  files := TStringList.Create;
  try
    // получаем список файлов с расширением .txt
    files.AddStrings(TDirectory.GetFiles(dir, '*.txt', TSearchOption.soTopDirectoryOnly));
    // получаем список файлов с расширением .log
    files.AddStrings(TDirectory.GetFiles(dir, '*.log', TSearchOption.soTopDirectoryOnly));
    // объединяем все элементы списков в один список
    files.Sorted := True;
    files.Duplicates := TDuplicates.dupIgnore; // удаляем дубликаты
  finally
    files.Free;
  end;
end;