ListBox - список файлов

@AlfredW · Регистрация: 04.08.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте. Сейчас делаю органайзер. Взял компоненты MonthCalendar и ListBox и Memo.

Как работает?
Я создал Button по нажатию которого узнается выделенная дата(дата используется как имя файла), а затем в файл сохраняется текст из Memo. Также в событие OnClick в MonthCalendar я поставил загрузку файлов. В общем посмотрите код. Это как бы система создания/загрузки заметок.

C++
1
2
3
4
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo1->Lines->SaveToFile("data/" + DateToStr(MonthCalendar1->Date) + ".txt");
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if(FileExists("data/" + DateToStr(MonthCalendar1->Date) + ".mg"))
    {
        DeleteFile("data/" + DateToStr(MonthCalendar1->Date) + ".mg");
        Memo1->Lines->Clear();
    }
    else
    {
        Memo1->Lines->Clear();
    }
}

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
    if(FileExists("data/" + DateToStr(MonthCalendar1->Date) + ".mg"))
    {
        Memo1->Lines->LoadFromFile("data/" + DateToStr(MonthCalendar1->Date) + ".mg");
    }
    else
    {
        Memo1->Lines->Clear();
    }
}

В чем проблема?
Я хочу в ListBox выводить список созданных заметок в таком формате: Заметка: 01.05.12(Дата должна выводиться в соотвествие с именем файла).

Я пытался сделать так:

C++
1
2
3
4
5
6
7
8
9
10
11
    TSearchRec Search;
    AnsiString Path = "\\data";
    if(FindFirst(Path + "\*.*", faAnyFile, Search))
    {
        while (FindNext(Search) == 0)
        {
        ListBox1->Items->Add("Заметка:" + Search.Name);
        FindNext(Search);
        }
    }
    FindClose(Search);

Но ничего не срабатывает.
Помогите пожалуйста.

@Sasha · 09.08.2012, 14:56

Сообщение от AlfredW

"\*.*",

Тут вроде бы 2 слеша должно быть

Сообщение от AlfredW

AnsiString Path = "\\data";

А где диск в котором должен находиться каталог data?

@AlfredW · 09.08.2012, 15:06 **[ТС]**

Сообщение от Sasha

Тут вроде бы 2 слеша должно быть

А где диск в котором должен находиться каталог data?

А можно сделать без указания диска? Просто потом на другом компьютере придется создавать папку в том же месте и на том же диске.

@Sasha · 09.08.2012, 15:30

Ну если каталог будет находиться вместе с екзешником. то можно так

C++
1
ExtractFilePath(Application->ExeName)

@kzru_hunter · 09.08.2012, 15:34

В справке есть пример по функции FindFirst

C++
1
2
3
4
5
6
7
8
9
10
11
12
        TSearchRec Search;
        AnsiString Path = ExtractFileDir(ParamStr(0)) + "\\data";
        if( FindFirst(Path + "\\*.*", faAnyFile, Search) == 0 )
        {
                do
                {
                        if ( Search.Name == "." || Search.Name == ".." ) continue;
                        ListBox1->Items->Add("Заметка: " + Search.Name);
                }
                while ( FindNext(Search) == 0 );
                FindClose(Search);
        }

@AlfredW · 09.08.2012, 15:40 **[ТС]**

Сообщение от kzru_hunter

В справке есть пример по функции FindFirst

C++
1
2
3
4
5
6
7
8
9
10
11
12
        TSearchRec Search;
        AnsiString Path = ExtractFileDir(ParamStr(0)) + "\\data";
        if( FindFirst(Path + "\\*.*", faAnyFile, Search) == 0 )
        {
                do
                {
                        if ( Search.Name == "." || Search.Name == ".." ) continue;
                        ListBox1->Items->Add("Заметка: " + Search.Name);
                }
                while ( FindNext(Search) == 0 );
                FindClose(Search);
        }

Спасибо, помогло.
А возможно как-то убрать отображение формата? Просто заметку отображает в ListBox как например: 01.02.12.txt

@Sasha · 09.08.2012, 16:40

Сообщение от AlfredW

А возможно как-то убрать отображение формата? Просто заметку отображает в ListBox как например: 01.02.12.txt

C++
1
ChangeFileExt();

Добавлено через 1 минуту
Как получить название файлов из папки

@AlfredW · 09.08.2012, 16:49 **[ТС]**

Сообщение от Sasha

C++
1
ChangeFileExt();

Добавлено через 1 минуту
Как получить название файлов из папки

В моём случае помогло просто убирание формата у файла

Спасибо, что напомнили мне о смене формата)

@kzru_hunter · 09.08.2012, 16:54

Сообщение от AlfredW

В моём случае помогло просто убирание формата у файла

можно поинтересоваться, какой функцией?

Сообщение от AlfredW

Спасибо, что напомнили мне о смене формата)

функция меняет расширение лишь в строке, а не самого файла

Ddv122 · 09.08.2012, 17:00

Sasha, а как можно вывести и иконки файлов?К примеру я вывожу все reg файлы с папки?а как мне добавить их иконки?
Вот пример

@AlfredW · 09.08.2012, 17:10 **[ТС]**

Сообщение от kzru_hunter

можно поинтересоваться, какой функцией?

функция меняет расширение лишь в строке, а не самого файла

Я просто взял и убрал расширение при создание файла, то есть теперь код выглядит к примеру так:

C++
1
Memo1->Lines->SaveToFile("data/" + DateToStr(MonthCalendar1->Date));

Добавлено через 6 минут
А еще 1 вопрос, как удалить определенную строку с ListBox.
Вот хотелось бы так:

C++
1
ListBox1->Items->Remove("Заметка: " + DateToStr(MonthCalendar1->Date));

Но так точно не заработает)

@Sasha · 09.08.2012, 17:37

Сообщение от AlfredW

ListBox1->Items->Remove("Заметка: " + DateToStr(MonthCalendar1->Date));

C++
1
ListBox1->Items->Delete(ListBox1->ItemIndex);

@kzru_hunter · 09.08.2012, 17:38

Сообщение от AlfredW

А еще 1 вопрос, как удалить определенную строку с ListBox.

C++
1
2
3
4
5
    int iIndex = ListBox1->Items->IndexOf("строка");
    if (iIndex != -1)
    {
        ListBox1->Items->Delete(iIndex);
    }

@Sasha · 09.08.2012, 17:39

Сообщение от Ddv122

Sasha, а как можно вывести и иконки файлов?К примеру я вывожу все reg файлы с папки?а как мне добавить их иконки?
Вот пример

Запихнуть иконку файла в компонент ImageList и потом попробовать скрестить, ImageList и ListBox

@AlfredW · 09.08.2012, 17:44 **[ТС]**

Сообщение от Sasha

C++
1
ListBox1->Items->Delete(ListBox1->ItemIndex);

Так дело в том, что я не знаю вот этого ItemIndex. Потому, что список не постоянный.
Вот смотрите:
Здесь в первый раз добавляются файлы в ListBox

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TSearchRec Search;
    AnsiString Path = ExtractFileDir(ParamStr(0)) + "\\data";
    if( FindFirst(Path + "\\*.*", faAnyFile, Search) == 0 )
    {
            do
            {
                    if ( Search.Name == "." || Search.Name == ".." ) continue;
                    ListBox1->Items->Add("Заметка: " + Search.Name);
            }
            while ( FindNext(Search) == 0 );
            FindClose(Search);
    }
}

Затем пользователь может во время работы программы:

C++
1
2
3
4
5
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo1->Lines->SaveToFile("data/" + DateToStr(MonthCalendar1->Date));
    ListBox1->Items->Add("Заметка: " + DateToStr(MonthCalendar1->Date));
}

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if(FileExists("data/" + DateToStr(MonthCalendar1->Date)))
    {
        DeleteFile("data/" + DateToStr(MonthCalendar1->Date));
        Memo1->Lines->Clear();
        //И вот здесь мне нужно удаление из ListBox1 именно нужной мне строки.
    }
    else
    {
        Memo1->Lines->Clear();
    }
}

@Sasha · 09.08.2012, 17:48

Сообщение от AlfredW

Так дело в том, что я не знаю вот этого ItemIndex. Потому, что список не постоянный.

Нутак выдели нужную строку в ListBox и нажми кнопку удалить

@AlfredW · 09.08.2012, 18:00 **[ТС]**

Сообщение от Sasha

Нутак выдели нужную строку в ListBox и нажми кнопку удалить

А можно как-то без выделения удалять? Вот просто нажал кнопку удалить и строка удалилась из ListBox1.
Вот собственно в чем и проблема.

@kzru_hunter · 09.08.2012, 18:02

AlfredW я тебе выше ответил по этому вопросу

Добавлено через 1 минуту
странно, почему меня часто игнорируют?

@AlfredW · 09.08.2012, 18:10 **[ТС]**

Сообщение от kzru_hunter

AlfredW я тебе выше ответил по этому вопросу

Добавлено через 1 минуту
странно, почему меня часто игнорируют?

Извиняюсь, просто забыл ответить. Я попробывал Ваш код, но к сожалению ничего не удалось.

@kzru_hunter · 09.08.2012, 18:13

Сообщение от AlfredW

Я попробывал Ваш код, но к сожалению ничего не удалось.

значит, у вас где-то ошибка.
метод IndexOf ищет строку в ListBox и если находит, то возвращает её индекс, чтобы по индексу можно было потом удалить эту строку.
то что вам и нужно.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	09.08.2012, 17:00
	Sasha, а как можно вывести и иконки файлов?К примеру я вывожу все reg файлы с папки?а как мне добавить их иконки? Вот пример Изображения 0

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	09.08.2012, 18:02
	AlfredW я тебе выше ответил по этому вопросу Добавлено через 1 минуту странно, почему меня часто игнорируют? 0