Сортировка в 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]

LB1.Items.Objects[i]

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