Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Настройки в Реестр или INI-файл ...

Автор: ajs 10.3.2010, 03:18

Как одной процедурой в зависимости от переданного флага писать в реестр или ini-файл ... видел когда то примерчик (что то от общего предка + создание на лету), но вот найти не могу :(

сейчас у меня нечто типа:

Код


    With TRegistry.Create do
      try
      ...
              If ValueExists ('Name')
                Then
                  Name := ReadString('Name') ;
      ... 
      finally
        CloseKey ;
        Free ;
      End ;

хотелось бы все тоже самое только примерно вот так:

Код


    With IfThen(Flag,TRegistry.Create,TInifiles.Create(IniName)) do
      try
      ...
              If ValueExists ('Name')
                Then
                  Name := ReadString('Name') ;
      ... 
      finally
        CloseKey ;
        Free ;
      End ;

Автор: samsamich 10.3.2010, 07:52

У них общий предок очень далекий - TObject. Вряд ли так просто получится. Можно написать класс враппер имеющий функциональность TRegistry и TINIFile...

Автор: CodeMonkey 10.3.2010, 10:11

Можно заюзать http://www.tdelphiblog.com/2010/02/rxlib-jvcl.html.

Автор: Alca 10.3.2010, 10:20

Цитата

Как одной процедурой в зависимости от переданного флага писать в реестр или ini-файл

Написать ее

Автор: ajs 10.3.2010, 21:59

Цитата(samsamich @ 10.3.2010, 07:52)

В том то и дело, что видел примерчик, и так как то все легко там было, но вот идеи не помню, толи от CustomIniFile толи еще от чего ...

Добавлено через 1 минуту

Цитата(Alca @ 10.3.2010, 10:20)

Цитата

Как одной процедурой в зависимости от переданного флага писать в реестр или ini-файл

Написать ее

Согласен, но не сильно хочу изобретать велосипед, вот и помощи прошу ...

Автор: Frees 10.3.2010, 22:21

Цитата(CodeMonkey @ 10.3.2010, 13:11

)

JVCL/JvFormStorage.

не без глюков, у Rx было постабильнее

Автор: CodeMonkey 11.3.2010, 10:54

Цитата(Frees @ 10.3.2010, 22:21

)

не без глюков, у Rx было постабильнее

Пример можно? Для общего образования. Просто сам использую постоянно.

Автор: Frees 11.3.2010, 14:29

Цитата(CodeMonkey @ 11.3.2010, 13:54

)

Пример можно?

ActivePage у pagecontrol не востонавливается