Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Win Registry. Почему не работает? Помогите   Найти похожие ветки 

 
Reticent ©   (2002-04-22 18:12) [0]

Доброго времени суток!

Помогите, пожалуйста найти ошибку. Надо считать записанное в регистре.

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) [1]

Пожалуйста помогите.



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

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
1-17584
Юляша
2002-04-21 08:26
2002.05.06
Сообщения об ошибках на русском


1-17618
Evgeny
2002-04-20 09:04
2002.05.06
многоугольник


1-17646
dr_neo
2002-04-22 22:33
2002.05.06
Перемешивание значений (Извините за тему сообщения!)


14-17690
Sergo
2002-03-23 10:05
2002.05.06
Сеть


6-17656
HDD
2002-02-20 04:00
2002.05.06
Помогите пожалуйста!