Win Registry. Почему не работает? Помогите [D4, Win2k]
Reticent © (2002-04-22 18:12:00)
Доброго времени суток!
Помогите, пожалуйста найти ошибку. Надо считать записанное в
регистре.
if l_Registry.ValueExists("visible")
then DB_CurrentUser.UI.Filter.visible :=
l_Registry.ReadBool("visible"); // <-- тут работает безупречно
if l_Registry.KeyExists ("DBCheckListBoxEx_Stati")
then begin
l_Registry.OpenKey(REGISTRY_KEY +
"\UI\Filter\DBCheckListBoxEx_Stati", True);
for i:=1 to 20 do
DB_CurrentUser.UI.Filter.DBCheckListBoxEx_Stati[i] :=
l_Registry.ReadBool(IntToStr(i)); // <-- а вот тут говорит что
не может считать данные из "1"
l_Registry.CloseKey;
end;
Почему не может то?!? не пойму. Записываю данные в обоих
случаях одинаково, считывать, вроде тоже хочу одинаково. Индекс, по
моему с единицы начинается. Хотя не имеет значения, т.к. "1" - это
не последний элемент.
DB_CurrentUser.UI.Filter.DBCheckListBoxEx_Stati :
array[1..20] of bool;
Помогите Мастера.
С всего хорошего.
Reticent (2002-04-22 18:45:00) [1]
Пожалуйста помогите.
Наверх 
ЧАТ |
Орешник |
|
