Главная страница
    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
6-17662
ATLANTIDO
2002-02-19 20:01
2002.05.06
ПОДАВИТЬ ОШИБКУ


4-17745
ice
2002-02-28 19:47
2002.05.06
как загнать прогу в трэй а не на панель?


4-17758
Egor12345
2002-03-01 09:53
2002.05.06
Замена процедуры окна


3-17482
sergey32
2002-04-12 10:16
2002.05.06
Не могу запустить цикл по IBQuery


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