Сохранить и извлеч данные

@Samrisbe · Регистрация: 28.01.2011

Студворк — интернет-сервис помощи студентам

Посоветуйте друзья как мне записать в реестр Label1->Caption и как его потом извлеч обратно в Label1->Caption.
Очень надо!

спасибо!

@Samrisbe · 15.10.2011, 18:22 **[ТС]**

Спасибо, однако суть проблемы не в этом а в том что два ключа подрят с реестра не могу считать, а по одиночке каждый работает, подробности выше на два поста.

cpp_developer · 15.10.2011, 19:17

Сообщение от moskk

ну господа!!! тип bool для того и придуман, чтобы можно было написать:

C++
1
if (reg->ValueExists("Caption"))

умник, да ? тогды вам сюды:
окно Messages в IDE CodeGear RAD Studio

@Samrisbe · 15.10.2011, 19:43 **[ТС]**

Всетаки в чем причина ошибки?
код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// Считываем пароль с реестра
    TRegistry *reg = new TRegistry();
    reg->RootKey=HKEY_CURRENT_USER;
    reg->OpenKey("Software\\Password\\",true);
    AnsiString test;
    if (reg->ValueExists("Caption")) {
    test=reg->ReadString("Caption");
    Label27->Caption = (test); }
    reg->CloseKey();
    reg = NULL;
    delete reg;
    //------------------------------
        //   Считываем CheckBox4 с реестра
    TRegistry *reg = new TRegistry();
    reg->RootKey=HKEY_CURRENT_USER;
    reg->OpenKey("Software\\Box\\Check4",true);
    bool  tes;
    if (reg->ValueExists("Box4Check")) {
    tes=reg->ReadInteger("Box4Check");
    CheckBox4->Checked = (tes); }
    reg->CloseKey();
    reg = NULL;
    delete reg;

ошибки:

C++
1
2
[BCC32 Error] Unit1.cpp(226): E2238 Multiple declaration for 'reg'
[BCC32 Error] Unit1.cpp(214): E2344 Earlier declaration of 'reg'

cpp_developer · 15.10.2011, 19:59

ты мой пост №16 проигнорировал ?
а там все было...
а так:

// Считываем пароль с реестра
TRegistry *reg1 = new TRegistry();
reg1->RootKey=HKEY_CURRENT_USER;
reg1->OpenKey("Software\\Password\\",true);
AnsiString test;
if (reg1->ValueExists("Caption")) {
test=reg1->ReadString("Caption");
Label27->Caption = (test); }
reg1->CloseKey();
reg1 = NULL;
delete reg1;
//------------------------------
// Считываем CheckBox4 с реестра
TRegistry *reg2 = new TRegistry();
reg2->RootKey=HKEY_CURRENT_USER;
reg2->OpenKey("Software\\Box\\Check4",true) ;
bool tes;
if (reg2->ValueExists("Box4Check")) {
tes=reg2->ReadInteger("Box4Check");
CheckBox4->Checked = (tes); }
reg2->CloseKey();
reg2 = NULL;
delete reg2;

?

@Samrisbe · 15.10.2011, 20:20 **[ТС]**

Aitäh, sõber!

cpp_developer · 15.10.2011, 20:36

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069

	Сохранить и извлеч данные 13.10.2011, 15:20. Показов 2551. Ответов 25 Метки нет (Все метки) Посоветуйте друзья как мне записать в реестр Label1->Caption и как его потом извлеч обратно в Label1->Caption. Очень надо! спасибо! 0

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	15.10.2011, 18:22 [ТС]
	Спасибо, однако суть проблемы не в этом а в том что два ключа подрят с реестра не могу считать, а по одиночке каждый работает, подробности выше на два поста. 0

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	15.10.2011, 20:20 [ТС]
	Aitäh, sõber! 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	15.10.2011, 20:36
	0