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): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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