Как проверить существование пункта в listbox?

← →
lobach © (2006-11-20 20:10) [0]

Вобщем в результате поиска в TSearchRec.name есть 10 текстовых файлов:
02.2005.txt
04.2005.txt
11.2005.txt
01.2006.txt
02.2006.txt
04.2006.txt
05.2006.txt
07.2006.txt
09.2006.txt
12.2006.txt
имена которых обозначат месяц и год.
В listbox нужно перечислить все года, которые есть в именах файлов(т.е. 2005 и 2006). Как год получаю так: Copy(TSearchRec.name, 4, 7)
как проверить есть ли уже такой элемент, т.е. если такой год есть, продолжить, если нет добавить.

← →
RASkov (2006-11-20 20:29) [1]

если в ListBox"е уже только года то
ListBox.Items.IndexOf("2006")
если вернет меньше ноля то нет

← →
Alexander Panov © (2006-11-20 21:30) [2]

> lobach © (20.11.06 20:10)

Пройти по TListBox в цикле и сравнить каждую строку.

Второй вариант - формировать во время поиска сразу год в поле ListBox1.Items.Objects[n] и при поиске сравнивать уже только по этому полю.

← →
Anatoly Podgoretsky © (2006-11-20 23:06) [3]

> lobach (20.11.2006 20:10:00) [0]

Только зачем тебе 7 символов, если год состоит из четырех?

Как проверить существование пункта в listbox? Найти похожие ветки