Недочёты в 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, но при этом не вылетает?

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@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