Delphi Opendialog Несколько Файлов

OpenDialog в Delphi представляет собой диалоговое окно, которое мы можем использовать для выбора одного или нескольких файлов. Для выбора нескольких файлов нам нужно установить свойство MultiSelect в True.

OpenDialog1:=TOpenDialog.Create(nil);
OpenDialog1.Title:='Выберите файлы';
OpenDialog1.Filter:='Все файлы|*.*';
OpenDialog1.Options:=[ofAllowMultiSelect];
if OpenDialog1.Execute then
begin
  for i:=0 to OpenDialog1.Files.Count-1 do
    ShowMessage('Выбран файл '+ OpenDialog1.Files[i]);
end;

В данном примере мы создаем новый экземпляр TOpenDialog, устанавливаем свойства Title, Filter и Options. Опция ofAllowMultiSelect позволяет выбрать несколько файлов. Если пользователь выбирает один или несколько файлов, мы отображаем их имена с помощью ShowMessage.