Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.005 c
3-17466
SQL monitor
2002-04-11 17:12
2002.05.06
Скажите, чем можно мониторить sql запросы в ado?


1-17632
HDD
2002-04-22 16:53
2002.05.06
SysUtils


1-17526
:)
2002-04-21 22:25
2002.05.06
Как в дельфи выполнять комманды коммандной строки?


1-17599
Reticent
2002-04-22 18:12
2002.05.06
Win Registry. Почему не работает? Помогите


14-17685
perov
2002-03-29 06:29
2002.05.06
Частота монитора





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский