Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник
Коллекция курьезных вопросов из форумов
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

Диалог - нескольких папок. [Delphi, Windows]


RusSun ©   (10.02.19 20:12

Всем привет.
Нужен диалог выбора нескольких папок.
Для текстовых файлов работает такой вариант.
procedure clickbutton2(dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
var s: String;

begin
Dialog := NewOpenSaveDialog( '',FileFullPath('Project1.exe'), [ OSFileMustExist, OSHideReadonly, OSAllowMultiSelect, OSOverwritePrompt, OSPathMustExist ] );
dialog.Filter := '*.txt|*.txt|все|*.*';
Dialog.OpenDialog := true;

 if Dialog.Execute then //else exit;
s:=Dialog.Filename;  k:=-1;
while s <> '' do
                  begin
                        inc(k);
                        a[k]:=Trim( Parse( s, #13 ) );
                        s := Trim( s );
          end;

form.Caption:=int2str(k);
Form.Add2AutoFree(Dialog);
end;

Вопрос: как сделать для нескольких папок?


RusSun ©   (13.02.19 14:13[1]

Hi, everybody.
Need a dialog to select multiple folders.
This option works for text files.
procedure click button2(dummy: pointer;Slender: Control; var mouse:TMouseEventData);
var s: String;

begin
Dialog: = NewOpenSaveDialog ( " , FileFullPath ('Project1.exe'), [ OSFileMustExist, OSHideReadonly, OSAllowMultiSelect, OSOverwritePrompt, OSPathMustExist ] );
dialog.Filter:= '*.txt/*.txt|all/*.*';
Dialogue.OpenDialog: = true;

if Dialog.Execute then / / else exit;
s:=Dialog.Filename; k:=-1;
while s < > " do
                 begin
                       inc(k);
                       a[k]:=Trim( Parse( s, #13 ) );
                       s: = Trim( s );
         end;

form.Caption:=inttostr(k);
Forms'.Add2AutoFree (Dialogue);
end;
Q: how to do for multiple folders?


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо