Главная страница
    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.004 c
1-17557
Anar
2002-04-22 10:26
2002.05.06
Hot Keys, когда форма не активна


14-17695
dlp
2002-03-30 11:05
2002.05.06
Помогите


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


1-17530
Юляша
2002-04-23 21:05
2002.05.06
Активизация формы


4-17749
chielo
2002-03-04 14:52
2002.05.06
Как програмно открыть CD





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский