| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сохранить TColor в реестре?

Иван Семенов ©   (2005-08-28 16:21:00) 

Есть запись:
type Colored = record
Font, Borders, GradTop, GradBot : TColor;
 end;
colors : colored;

Как сохранить colors в реестре, а потом прочитать? В описании TRegIniFile нашел только запись Integer, Boolean, String.

---

Иван Семенов   (2005-08-28 20:39:00) [1]

>>Anatoly Podgoretsky

Спасибо! Переделаю.

---

Anatoly Podgoretsky   (2005-08-28 20:36:00) [2]

Иван Семенов   (28.08.05 20:26) [5]
Это не пойдет - Name это не данные, а указатель на данные, точно также записывать отдельно.

---

Anatoly Podgoretsky   (2005-08-28 20:33:00) [3]

Reg.WriteInteger('Font', Colored.Font);
...
Reg.WriteInteger('GradBot', Colored.GradBot);

---

Иван Семенов   (2005-08-28 20:27:00) [4]

>>Anatoly Podgoretsky

А как записать TColor в integer?

---

Иван Семенов   (2005-08-28 20:26:00) [5]

Ой. А если запись такая:
type Colored = record
Font, Borders, GradTop, GradBot : TColor;
Value : Integer;
Name : String;
end;
colors : Colored;

То поля Value и String могут быть разного размера. Как тогда прочитать запись из реестра?
Делаю так:

Reg := TRegistry.Create;
 try
   Reg.RootKey := HKEY_CURRENT_USER;  
   if Reg.OpenKey('\Software\MySoft\Parameters', True) then begin
   Reg.ReadBinaryData('SettValue', colors, sizeof(colors));
   Reg.CloseKey;
   end;
 finally
   Reg.Free;
  end;
Но похоже, размерчик не тот? Можно пример как записать и прочитать запись с неизвестным размером. Или что я не так делаю?

---

Anatoly Podgoretsky   (2005-08-28 18:09:00) [6]

Иван Семенов   (28.08.05 17:12) [2]
Нет, более того это неудачный вариант, используй WriteInteger, соответветсвенно для каждой части по отдельности. А для удобства можно сделать подключ Colors

---

begin...end   (2005-08-28 17:20:00) [7]

> Иван Семенов   (28.08.05 17:12) [2]

> А это единственный вариант?

Нет. Можно ещё напрямую использовать API-функции для работы с реестром. Но вряд ли это будет проще. А с помощью TRegIniFile, этого сделать нельзя.

---

Иван Семенов   (2005-08-28 17:12:00) [8]

Спасибо. Попробую.
А это единственный вариант?

---

begin...end   (2005-08-28 16:44:00) [9]

> Иван Семенов   (28.08.05 16:21)

Используйте класс TRegistryи его метод WriteBinaryData.

var
 colors: colored;
 Registry: TRegistry;
begin
 ... // Создаём экземпляр Registry, переходим на нужный ключ
 Registry.WriteBinaryData('...', colors, sizeof(colors));
 ...
end.

---

Наверх