Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
Вниз
Сортировка в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.754 c
