| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подсчёт

Страницы:   < 1 2 >

Observer ©   (2007-02-17 15:52:00) 

Как осуществить подсчёт одинаковых строк в ListBoxe?

---

default   (2007-02-17 17:48:00) [21]

вот в .NET в базовый класс массива(Array) включён перегруженый метод IndexOf в параметрах которого можно задать с какого индекса искать - там бы подобная идея сработала, тут же придётся делать менее лаконично - увы

---

default   (2007-02-17 17:40:00) [22]

ой, в моей голове другое крутилось
[7] неверно, конечно

---

default   (2007-02-17 17:23:00) [23]

пусть [7] менее тривиально, но зато лаконичнее чем, вероятно, любые другие варианты решения задачи

---

default   (2007-02-17 17:13:00) [24]

можешь ещё так

var
 i, duplCount: Integer;
begin
 duplCount := 0;
 with ListBox1 do
   for i:= 0 Items.Count-1 do
     if Items.IndexOf(Items[i]) > i then Inc(duplCount);


---

default   (2007-02-17 16:56:00) [25]

ну млин скинь содержимое листбокса в стринглист с включённой опцией игнорирования дубликатов и разница длин списков и будет тем что ты ищешь

---

Observer   (2007-02-17 16:29:00) [26]

как всё таки можно доработать код?

---

Observer   (2007-02-17 16:18:00) [27]

Посмотрел! Но чото мозги уже не работают не знаю как переделать?

---

RASkov   (2007-02-17 16:03:00) [28]

> [2] Observer ©   (17.02.07 15:57)

Там не подсчет, там удаление дупликотов...
Для подсчета нужно доработать...

---

Observer   (2007-02-17 15:57:00) [29]

RASkov большое спасибо

---

RASkov   (2007-02-17 15:56:00) [30]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=0&id=1171660447

---

Страницы:   < 1 2 >

Наверх