Недочёты в TListView

@Baratro · Регистрация: 23.09.2009

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

Фрагмент кода:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
TListColumn *NewColumn;
ListView1->Align = alNone;
ListView1->ViewStyle = vsReport;
 
NewColumn = ListView1->Columns->Add();
NewColumn->Caption = "Name";
 
NewColumn = ListView1->Columns->Add();
NewColumn->Caption = "Time";
 
    TSearchRec SearchRec;  
 
   if (FindFirst(path + "*.mp3", faAnyFile, SearchRec) == 0 )
   {
    ListView1->Items->Add()->Caption = (SearchRec.Name);
        
 
        while (FindNext(SearchRec) == 0)
            ListView1->Items->Add()->Caption = (SearchRec.Name);
            
    }
 
   ListView1->ItemIndex = 0;
   SpeedButton6->Enabled = false;

И следующий фрагмент, позволяющий определить длительность файла:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::TrackInfo()
{
long int TrackLength;
int minf,secf;
AnsiString st;
    TrackLength = MediaPlayer1->TrackLength[1]/1000;
    minf=TrackLength/60;
    secf=TrackLength%60;
st = IntToStr(minf) + ":";
  if (sec < 10)
        st = st + "0" + IntToStr(secf);
  else
        st = st + IntToStr(secf);
ListView1->Items->Add()->SubItems->Add(st);
}

Вопрос: почему, при добавлении функции

C++
1
TrackInfo();

в первый фрагмент кода после строки

C++
1
ListView1->Items->Add()->Caption = (SearchRec.Name);

, т.е., когда пишем так:

C++
1
2
3
4
5
6
7
8
   if (FindFirst(path + "*.mp3", faAnyFile, SearchRec) == 0 )
   {
        {ListBox1->Items->Add(SearchRec.Name); 
                        TrackInfo();}
        
        while (FindNext(SearchRec) == 0)
              {ListBox1->Items->Add(SearchRec.Name); TrackInfo();}
    }

на этапе выполнения возникает ошибка. Или я что-то не так пишу?
И ещё один вопрос.. Как реализовать drag & drop В TListView?
Для ListBox делаю так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::ListBox1DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
int SPosition, DPosition;
SPoint[1]=TPoint(X,Y);
SPosition = ListBox1->ItemAtPos(SPoint[0], true);
DPosition = ListBox1->ItemAtPos(SPoint[1], true);
ListBox1->Items->Move(SPosition, DPosition);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ListBox1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
Accept = (Source = ListBox1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1MouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
SPoint[0]=TPoint(X,Y);
}

А с TListView никак не могу разобраться.. Заранее благодарю..

@Baratro · 17.11.2009, 16:23 **[ТС]**

Проблема остаётся актуальной..

@Lord_Voodoo · 17.11.2009, 16:30

вот баг:
Accept = (Source = ListBox1);
остальное потом гляну...

@Baratro · 17.11.2009, 16:33 **[ТС]**

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

вот баг:
Accept = (Source = ListBox1);
остальное потом гляну...

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

@Lord_Voodoo · 17.11.2009, 17:44

Baratro, у вас всегда Accept будет true, если конечно же ListBox1 не равен NULL... это не сравнение у вас, а присвоение... а что за ошибка-то возникает?

@Baratro · 17.11.2009, 17:49 **[ТС]**

В первом случае, при выполнении возникает следующеая ошибка:

@Baratro · 17.11.2009, 17:54 **[ТС]**

А согласно Accept..составлялась при прочтении книги.. Вот, собственно ниже, то, что было написано автором книги:

C++
1
Accept

меня интересует, как сии же действия проделать в TListView..

Добавлено через 1 минуту

C++
1
2
3
4
5
void __ fastcall TForm1 :: ListView1DragOver (TObject *Sender,
TObject *Source, int X, int Y,
TDragState State, bool &Accept)
{
Accept = (Source = ListView1) ;}

@Lord_Voodoo · 17.11.2009, 18:00

от опечаток никто не застрахован, хотя кто его знает, о чем думал тогда автор книги... а в чем проблема, в этом компоненте также есть события для drag&drop-а: OnDragDrop, OnDragOver, OnEndDock, OnEndDrag
и этот код меня жуть как смущает почему-то:
ListView1->Items->Add()->Caption = (SearchRec.Name);

а на счет ошибки, надо трассировкой выявить, что конкретно ему не нравится

@Baratro · 17.11.2009, 18:07 **[ТС]**

Есть, разумеется.. однако, составить аналог своих действий для ListView у менян е получилось..
Ему конкретно не нравится то, что я добавляю функцию TrackInfo() вот в этой части:

C++
1
2
3
4
5
6
7
8
if (FindFirst(path + "*.mp3", faAnyFile, SearchRec) == 0 )
   {
                {ListBox1->Items->Add(SearchRec.Name); 
                        TrackInfo();}
                
                while (FindNext(SearchRec) == 0)
                          {ListBox1->Items->Add(SearchRec.Name); TrackInfo();}
    }

а почему ему сиё не нравится, мне сиё не совсем понятно..
что же касается кода..где-то лежал у меня исходник, который я корректировала..взято отсюда:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
void __fastcall TForm1::FormCreate(TObject *Sender)
 
{
const char Names[6][2][10] = 
{{"Rubble","Barny"},
{"Michael", "Johnson"},
{"Bunny", "Bugs"},
{"Silver", "HiHo"},
{"Simpson", "Bart"},
{"Squirrel", "Rocky"}};
 
TListColumn *NewColumn;
TListItem *ListItem;
TListView *ListView = new TListView(this);
 
ListView->Parent = this;
ListView->Align = alClient;
ListView->ViewStyle = vsReport;
NewColumn = ListView->Columns->Add();
NewColumn->Caption = "Last";
 
NewColumn = ListView->Columns->Add();
NewColumn->Caption = "First";
for (int i = 0; i < 6; i++)
{
ListItem = ListView->Items->Add();
ListItem->Caption = Names[i][0];
ListItem->SubItems->Add(Names[i][1]);
}
}

Вот посредством сего и появился смущающий вас код..

@Lord_Voodoo · 17.11.2009, 18:09

Baratro, а что она должна делать? дописывать длительность трека?

@Baratro · 17.11.2009, 18:34 **[ТС]**

Ну так она выше есть..в первом посте:
И следующий фрагмент, позволяющий определить длительность файла:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    void __fastcall TForm1::TrackInfo()
{
long int TrackLength;
int minf,secf;
AnsiString st;
        TrackLength = MediaPlayer1->TrackLength[1]/1000;
        minf=TrackLength/60;
        secf=TrackLength%60;
st = IntToStr(minf) + ":";
  if (secf < 10)
                st = st + "0" + IntToStr(secf);
  else
                st = st + IntToStr(secf);
ListView1->Items->Add()->SubItems->Add(st);}

Добавлено через 21 минуту
Lord_Voodoo, Она должна записать размер трека во вторую колонку..

Добавлено через 49 секунд
Вернее, продолжительность..**

Добавлено через 19 секунд
Прошу прощение за неточность*

@Lord_Voodoo · 17.11.2009, 19:35

а ты выяснил в каком месте вылетает?

ListView1->Items->Add()->SubItems->Add(st) и снова загадочные манускрипты

@Baratro · 17.11.2009, 19:38 **[ТС]**

Lord_Voodoo, При обращении к функции TrackInfo()..

@Lord_Voodoo · 17.11.2009, 19:43

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

TrackLength = MediaPlayer1->TrackLength[1]/1000;

ты трассировать код не умеешь, я так понял? а если в этом коде TrackLength[1] заменить на какое-нить число, ошибка будет? просто исключение генерит проигрыватель, а это единственное место, где ты с ним работаешь...

@Baratro · 17.11.2009, 19:49 **[ТС]**

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

ты трассировать код не умеешь, я так понял? а если в этом коде TrackLength[1] заменить на какое-нить число, ошибка будет? просто исключение генерит проигрыватель, а это единственное место, где ты с ним работаешь...

Lord_Voodoo, Скажем так, ранее не приходилось.. а можно по-подробнее на счёт того, как всё-таки заставить его работать?..

Добавлено через 1 минуту
да, будет..а именно:
[C++ Error] Unit1.cpp(187): E2280 Member identifier expected

@Lord_Voodoo · 17.11.2009, 19:58

а что ты написал?

@Baratro · 17.11.2009, 20:00 **[ТС]**

вот это:
TrackLength = MediaPlayer1->1/1000;

@Lord_Voodoo · 17.11.2009, 20:03

Baratro,вообще предполагалось, чтобы хотя бы так:
TrackLength = 10000/1000;

@Baratro · 17.11.2009, 20:07 **[ТС]**

Программа запустилась, однако записывает по 10 секунт в каждую строку..

Добавлено через 10 секунд
секунд*

@Lord_Voodoo · 17.11.2009, 20:40

Baratro, но при этом не вылетает?

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@Baratro 4 / 4 / 1 Регистрация: 23.09.2009 Сообщений: 74
	17.11.2009, 16:23 [ТС]
	Проблема остаётся актуальной.. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 16:30
	вот баг: Accept = (Source = ListBox1); остальное потом гляну... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 17:44
	Baratro, у вас всегда Accept будет true, если конечно же ListBox1 не равен NULL... это не сравнение у вас, а присвоение... а что за ошибка-то возникает? 0

@Baratro 4 / 4 / 1 Регистрация: 23.09.2009 Сообщений: 74
	17.11.2009, 17:49 [ТС]
	В первом случае, при выполнении возникает следующеая ошибка: 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 18:00
	от опечаток никто не застрахован, хотя кто его знает, о чем думал тогда автор книги... а в чем проблема, в этом компоненте также есть события для drag&drop-а: OnDragDrop, OnDragOver, OnEndDock, OnEndDrag и этот код меня жуть как смущает почему-то: ListView1->Items->Add()->Caption = (SearchRec.Name); а на счет ошибки, надо трассировкой выявить, что конкретно ему не нравится 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 18:09
	Baratro, а что она должна делать? дописывать длительность трека? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 19:35
	а ты выяснил в каком месте вылетает? ListView1->Items->Add()->SubItems->Add(st) и снова загадочные манускрипты 0

@Baratro 4 / 4 / 1 Регистрация: 23.09.2009 Сообщений: 74
	17.11.2009, 19:38 [ТС]
	Lord_Voodoo, При обращении к функции TrackInfo().. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 19:58
	а что ты написал? 0

@Baratro 4 / 4 / 1 Регистрация: 23.09.2009 Сообщений: 74
	17.11.2009, 20:00 [ТС]
	вот это: TrackLength = MediaPlayer1->1/1000; 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 20:03
	Baratro,вообще предполагалось, чтобы хотя бы так: TrackLength = 10000/1000; 0

@Baratro 4 / 4 / 1 Регистрация: 23.09.2009 Сообщений: 74
	17.11.2009, 20:07 [ТС]
	Программа запустилась, однако записывает по 10 секунт в каждую строку.. Добавлено через 10 секунд секунд* 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.11.2009, 20:40
	Baratro, но при этом не вылетает? 0