Скачать: CL | DM;

Сортировка в TListBox.   Найти похожие ветки 

← →
WestBronx   (2006-03-01 15:25) [0]

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

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]), различать, откудо взято значение, из реестра или из папки?
Спасибо.

---

← →
WestBronx   (2006-03-01 15:34) [1]

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

---

← →
DesWind ©   (2006-03-01 15:41) [2]

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

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

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

---

← →
WestBronx   (2006-03-01 16:16) [3]

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

---

← →
Германн ©   (2006-03-01 16:27) [4]

LB1.Items.Objects[i]

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c