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

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

Сортировка в TListBox. [D7, XP]

WestBronx ©   (2006-03-01 15:25:00) 

Привет, подскажите как реализовать? Для начала приведу часть кода:

Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\MyPrg\db',True);
Reg.GetValueNames(LB1.Items);
Reg.CloseKey;
Reg.Free;

If FindFirst(startUPd, faAnyFile, SearchRec)=0 then
repeat
If (SearchRec.Name = '.') or (SearchRec.Name = '..') or (SearchRec.Name = 'Thumbs.db') then
else LB1.Items.Add(SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

В Итоге, я получаю в TListBox, список значений, 1-ый из реестра, 2-ой из папки.
Подскажите, как их различать?
Т.Е. При TForm1.LB1Click, (LB1.Items[LB1.ItemIndex]), различать, откудо взято значение, из реестра или из папки?
Спасибо.

---

Германн   (2006-03-01 16:27:00) [1]

LB1.Items.Objects[i]

---

WestBronx   (2006-03-01 16:16:00) [2]

DesWind ©   (01.03.06 15:41) [2]
Эм, у меня на Objects, неузвестный индефикатор пишет =/

---

DesWind   (2006-03-01 15:41:00) [3]

можно что-то вроде

из реестра:
integer(LB1.Objects[i]):=1;

из папки:
integer(LB1.Objects[i]):=2;

---

WestBronx   (2006-03-01 15:34:00) [4]

Можно конечно, после считывание данных из реестра, занести общее кол-во значений в LB, в переменную, допустим maxdb, зетем добавить данные из папки. Ну а потом сверять, если LB1.ItemIndex меньше или ровно maxdb, тогда из реестра, иначе из папки. Но как-то не то...

---

Наверх