ListBox - передача в список файлов.

[Kocapb]

Здраствуйте, необходимо в ListBox, или Memo или другой компонент передать название всех графических файлов в выбранном каталоге. Делаю навигатор для просмотра графичиских файлов. Необходимо сделать компонент где бы отображались
все графические файлы из выбранного каталога, как я считаю ListBox для этого подходит, но как в него залить файлы из выбранного каталога не знаю =\.

я использую для выбора каталога стандартную функцию SelectDirectory
вот код клавишы для открытия:
if(SelectDirectory("Выберете каталог где хранятся картинки: ","",
aPath) != 0)
{
aPath = aPath + "\\"; \\AnsiString aPath текущий каталог из которого запущена программа
FirstPicture(); \\ показать 1ую картинку в выбранном каталоге
}

помогите начинающиму освоить этот прием

[merax]

Мне вот интересно Вы книжки читаете?
Я не стал морочиться накатал на С++ Builder т.к. больше ничего под рукой нет.

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);
}

Ето она исчет все файлы в указанном каталоге и загоняет их в ЛистБокс, если Path поменяешь на "*.*" то искать будет в текущем каталоге.

А смотри как красиво это все на C# делается, никакого гемора я обожаю Sharp

private void button1_Click(object sender, EventArgs e)
        {
            string Path = @"c:\windows";
            string SearchPattern = "*.*";

            DirectoryInfo di = new DirectoryInfo(Path);
            DirectoryInfo[] directories =
                di.GetDirectories(SearchPattern, SearchOption.TopDirectoryOnly);
            foreach (DirectoryInfo dir in directories)
            {
                //ListBox l = new ListBox();
                listBox1.Items.Add(dir.FullName + dir.LastWriteTime);
            }

[Kocapb]

спасибо читаю, но очень мало хорошой лит-ры по практике.

[rapuhabass]

похожий вопрос волнуе, только вот чего-то этот кусок не хочет работать, компилю в билдере все хорошо нажимаю на 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 показалось?

[Гром]

Скорее всего, проблема в следующем:

AnsiString Path = "C:\\Program Files\\Borland\\CBuilder6";

Хотя, возможно, билдер со своими паскалевскими замашками одинарные слэши проглотит не поперхнувшись...

[rapuhabass]

Спасибо помогло, но ещё бы текст отображаемого файла в ListBox в Memo запихнуть, попытался так неработает:

if (ListBox1->ItemIndex < 0)
ShowMessage("Вы не сделали свой выбор");
else
Memo1->Clear();
Memo1->Lines->Add(LoadFromFile(IntToStr(ListBo x1->ItemIndex + 1)));

[Гром]

ItemIndex - это всего лишь номер выбранной строчки. Вот так можно загрузить в Мемо содержимое файла, имя которого указано в выбранной строчке ЛистБокса:

Memo1 -> Lines -> LoadFromFile(ListBox1 -> Items -> Strings[ListBox1 -> ItemIndex]);

[rapuhabass]

Вроде сейчас все и правильно, но вот только когда компилируешь пишет сообщение Cannot open File