|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.11.2007, 05:54 | #1 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
Открытия графических файлов
Доброго дня суток. Необходимо сделать открытие всех графических файлов. Освоил открытие через
if ( FindFirst(aPath+ "*.jpg", faAnyFile, aSearchRec) == 0) Image1->Picture->LoadFromFile(aPath+aSearchRec.Name ); //aPath - директория //aSearchRec - результат поиска но здесь получается задать только одно расширение файла. Как можно сделать открыть все граф файлы из выбранного каталога??? есть ли у граф файлов какой-то специальный отличный от других аттрибут??? Последний раз редактировалось Kocapb; 30.11.2007 в 06:00. |
30.11.2007, 07:43 | #2 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,065
|
использовать цикл и FindNext?
|
01.12.2007, 19:04 | #3 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
хмм вроде понятно, но как то смутно... попробую попариться =)
|
01.12.2007, 19:11 | #4 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
а я тут подума а если просто написать еще одно открыте =) и заработало if ( FindFirst(aPath+ "*.jpg", faAnyFile, aSearchRec) == 0) { Image1->Picture->LoadFromFile(aPath+aSearchRec.Name ); Image1->Visible = true; GroupBox1->Caption = " " + aSearchRec.Name + " "; ListBox1->Items->Add(aSearchRec.Name); while (FindNext(aSearchRec) == 0 ) ListBox1->Items->Add(aSearchRec.Name); } if ( FindFirst(aPath+ "*.bmp", faAnyFile, aSearchRec) == 0) { Image1->Picture->LoadFromFile(aPath+aSearchRec.Name ); Image1->Visible = true; GroupBox1->Caption = " " + aSearchRec.Name + " "; ListBox1->Items->Add(aSearchRec.Name); while (FindNext(aSearchRec) == 0 ) ListBox1->Items->Add(aSearchRec.Name); } сделал тупо перечислением всех условий =) хотелось бы узнать это оптимально и как скажется на времени выполнении программы??? если кто желает вывесить другую реализацию более оптимальную Welcome!!! хотелось бы рассмотреть не одно решение |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Конвертирование графических форматов файлов | ALEX_RAS | Помощь студентам | 21 | 02.11.2008 17:46 |
Диалог открытия директории | Altera | Общие вопросы Delphi | 13 | 05.07.2008 12:55 |
при открытии большого файла должно появляться окно с ProgressBar и показывать ход открытия | Михаил Юрьевич | Общие вопросы Delphi | 3 | 28.05.2008 23:33 |
Встроенный конвертер графических файлов в Windows | Air | Мультимедиа в Delphi | 12 | 23.03.2008 00:42 |