|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.08.2007, 14:22 | #1 |
Пользователь
Регистрация: 08.07.2007
Сообщений: 76
|
Множественная загрузка файлов
Как работать с множественной загрузкой файлов в TOpenDialog. Например, как вывести имена всех выбранных файлов в поле Memo????
Только начал изучать Delphi...
|
02.08.2007, 14:33 | #2 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
opendialog1.multiselected:=true;
имена содержатся в свойстве Files
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
02.08.2007, 14:40 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 02.08.2007 в 14:41. Причина: mutabor опередил |
02.08.2007, 14:44 | #4 |
Пользователь
Регистрация: 08.07.2007
Сообщений: 76
|
Всем спасибо!!!
Alex21, ничего страшного) Ты мне тоже помог!
Только начал изучать Delphi...
|
02.08.2007, 14:45 | #5 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Я кстати первый раз неправильно написал
Надо вот так procedure TForm1.FormCreate(Sender: TObject); begin opendialog1.Options:=opendialog1.Op tions+[ofAllowMultiSelect]; end; procedure TForm1.Button2Click(Sender: TObject); begin if opendialog1.Execute then memo1.Lines:=opendialog1.Files; end;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
02.08.2007, 15:14 | #6 | |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Цитата:
Устанавливаешь свойство openDialog1 - Options->ofAllowMultiSelect:=true . Это типа выделения множества файлов.... А потом : procedure TForm1.BitBtn1Click(Sender: TObject); begin Memo1.Clear; if opendialog1.Execute then Memo1.Lines.AddStrings (openDialog1.Files); end;
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Последний раз редактировалось Pitbull; 02.08.2007 в 15:18. |
|
02.08.2007, 15:16 | #7 | |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Цитата:
Просто в твоем примере добавится только одно имя.... А ему нужно ,чтобы все....
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
|
02.08.2007, 15:20 | #8 | |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Цитата:
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
|
02.08.2007, 15:21 | #9 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
И ведь, никто не подскажет сделать так:
memo1.WordWrap:=false; P.S.: выключаем авто перенос строк в мемо.
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 02.08.2007 в 15:24. Причина: никто пишется слитно ) |
02.08.2007, 15:22 | #10 |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
ага...
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь: выбор файлов исходя из имени файлов | Antik163RUS | Помощь студентам | 4 | 19.06.2008 21:20 |
Загрузка иконок файлов | igroman | Общие вопросы Delphi | 4 | 29.05.2008 09:00 |
Печать pdf файлов из списка файлов в Excel | АПС | Microsoft Office Excel | 5 | 15.04.2008 16:04 |
Загрузка файлов с сервера | Axxel | Общие вопросы по Java, Java SE, Kotlin | 4 | 22.11.2007 10:51 |
Загрузка файлов в проект | Maycal | Общие вопросы C/C++ | 3 | 11.10.2007 09:46 |