![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
![]()
Здраствуйте, необходимо в ListBox, или Memo или другой компонент передать название всех графических файлов в выбранном каталоге. Делаю навигатор для просмотра графичиских файлов. Необходимо сделать компонент где бы отображались
все графические файлы из выбранного каталога, как я считаю ListBox для этого подходит, но как в него залить файлы из выбранного каталога не знаю =\. я использую для выбора каталога стандартную функцию SelectDirectory вот код клавишы для открытия: if(SelectDirectory("Выберете каталог где хранятся картинки: ","", aPath) != 0) { aPath = aPath + "\\"; \\AnsiString aPath текущий каталог из которого запущена программа FirstPicture(); \\ показать 1ую картинку в выбранном каталоге } помогите начинающиму освоить этот прием Последний раз редактировалось Kocapb; 29.11.2007 в 18:10. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 27.12.2006
Сообщений: 955
|
![]()
Мне вот интересно Вы книжки читаете?
Я не стал морочиться накатал на С++ Builder т.к. больше ничего под рукой нет. Код:
А смотри как красиво это все на C# делается, никакого гемора я обожаю Sharp Код:
Последний раз редактировалось merax; 30.11.2007 в 21:37. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
![]()
спасибо читаю, но очень мало хорошой лит-ры по практике.
|
![]() |
![]() |
![]() |
#4 |
Регистрация: 13.05.2010
Сообщений: 9
|
![]()
похожий вопрос волнуе, только вот чего-то этот кусок не хочет работать, компилю в билдере все хорошо нажимаю на Button1 и ничего не происходит
![]() void __fastcall TForm1::Button1Click(TObject *Sender) { TSearchRec Rec; AnsiString Path = "C:\Program Files\Borland\CBuilder6"; if (FindFirst(Path + "\*.*", faAnyFile, Rec)); while (FindNext(Rec) == 0) { ListBox1->Items->Add(Rec.Name); Memo1->Lines->Add(Rec.Name); } FindClose(Rec); } Вот ещё один вопрос сразу есть, как потом из ListBox выбрать файл и чтоб содержимое файла в memo показалось? |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 21.03.2009
Сообщений: 2,193
|
![]()
Скорее всего, проблема в следующем:
Код:
Простые и красивые программы - коды программ + учебник C++
Создание игры - взгляд изнутри - сайт проекта Тема на форуме, посвященная ему же |
![]() |
![]() |
![]() |
#6 |
Регистрация: 13.05.2010
Сообщений: 9
|
![]()
Спасибо помогло, но ещё бы текст отображаемого файла в ListBox в Memo запихнуть, попытался так неработает:
if (ListBox1->ItemIndex < 0) ShowMessage("Вы не сделали свой выбор"); else Memo1->Clear(); Memo1->Lines->Add(LoadFromFile(IntToStr(ListBo x1->ItemIndex + 1))); |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 21.03.2009
Сообщений: 2,193
|
![]()
ItemIndex - это всего лишь номер выбранной строчки. Вот так можно загрузить в Мемо содержимое файла, имя которого указано в выбранной строчке ЛистБокса:
Код:
Простые и красивые программы - коды программ + учебник C++
Создание игры - взгляд изнутри - сайт проекта Тема на форуме, посвященная ему же |
![]() |
![]() |
![]() |
#8 |
Регистрация: 13.05.2010
Сообщений: 9
|
![]()
Вроде сейчас все и правильно, но вот только когда компилируешь пишет сообщение Cannot open File
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Потоки, передача файлов по сети | SeЯgey | Работа с сетью в Delphi | 3 | 02.04.2011 23:51 |
Передача файлов на север.. | k51102 | Работа с сетью в Delphi | 1 | 09.04.2008 16:20 |
Передача файлов по UDP | GAGARIN-NEW | Работа с сетью в Delphi | 3 | 15.11.2007 22:45 |
Передача файлов на WEB-сервер | SeregaP | Работа с сетью в Delphi | 18 | 09.04.2007 08:41 |
Передача файлов | wolff | Работа с сетью в Delphi | 3 | 03.03.2007 15:54 |