[Eirstream]

создайте массив масок файлов на основе перечня: Код: Александровский Пятигорск Ессентуки Нефтекумск … и пользуйте поиск по маске для каждого элемента массива масок: FindFirst - Функция. Справочник - Основы Delphi + FindNext - Функция. Справочник - Основы Delphi »

Спасибо за идею и совет, но у меня не сильно большой опыт в этом всем, можно сказать начинающий. Я так понял, что необходимо с помощью процедуры с функциями find... найти все файлы с расширением pdf в нужной мне папке. Записать те файлы, которые процедура нашла, а затем сделать условие, что если в списке есть такой файл, то добавить его и отправить письмо.
Попробовал сделать с функциями, но не пойму как вывести и список или включить его куда-либо.

Код:

procedure ScanFiles(Dir: string; Mask: string);
var
SR: TSearchRec;
ListBox1: TStrings;
Begin
dir:= GetCurrentDir;
Mask:= '*.pdf';
​ ​ if FindFirst(Dir+'\Рапорта на выезд\' + Mask, faAnyFile, SR) = 0 then
begin
​ ​ repeat
​ ​ Application.ProcessMessages;
​ ​ if (SR.Attr and faDirectory)<> faDirectory then
​ ​ ​ ​ ​ ​ ​ begin
​ ​ ​ ​ ​ ​ ListBox1.Add(Dir+'\Рапорта на выезд\' + SR.Name);
​ ​ ​ ​ ​ ​ ​ ​ end;
​ ​ until FindNext(SR) <> 0;
​ ​ ​ ​ ​ ​ ​ FindClose(SR);
end;
End;
end.

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

При нажатии на кнопку, вот так получилось, а вот как дальше?

Скрытый текст