Как объединить результаты нескольких вызовов TDirectory.GetFiles в Delphi?

#delphi

Как прописать, что бы программа обрабатывала разные расширения файлов при выборе
двух CheckBox.

На форме два checkBox. Делаю по отдельности, то есть: 

if CheckBox1.Checked then
  afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.ini', RL);
if CheckBox2.Checked then
  afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.txt', RL);


Все работает. Если выбираю два чекбокса, то получаю только .txt.

Что нужно прописать, что бы при отметке CheckBox1 и CheckBox2 программа обрабатывала
оба типа файлов - .ini и .txt
    

Ответы

Ответ 1

TDirectory.GetFiles возвращает массив имен. Следовательно, все, что нужно сделать
- это объединить два массива

// Изначально массив пустой
SetLength(afList, 0);
if CheckBox1.Checked then
  afList := Concat(afList, TDirectory.GetFiles(memo_Folders.Lines[i], '*.ini', RL));
if CheckBox2.Checked then
  afList := Concat(afList, TDirectory.GetFiles(memo_Folders.Lines[i], '*.txt', RL));