сохранение параметров формы в Delphi

[TaYgA]

Здравствуйте дорогие эксперты... Не могу решить задачу.... Даны две формы. На первой форме кнопка при нажатии открывается вторая форма на которой расположены RadioButton с названием цветов (белый, синий, красный...). При выборе цвета главная форма перекрашивается в этот цвет. С этим разобрался, а как можно сделать, чтоб при закрытии проекта и повторном его запуске выбранный цвет сохранялся!?!

[raxp]

использовать inifiles...
говорят, поиск по форуму очень хорош http://www.programmersforum.ru/showt...light=TIniFile

[TaYgA]

Большое спасибо!!! Извеняюсь за свою непредусмотрительность... Но проблема заключается что должно быть в inifile.WriteInteger(......)?!?! У меня используется RadioButton, как их сохранять!??!

[TaYgA]

Всем доброго времени суток, вынужден вернуться к этой теме... Сохранение в inin файл я сделал:

const
  ShortFileName : String = 'MyIniFile.ini';
  Section       : String = 'Main';
var
  IniFile       : TIniFile;
  FullFileName  : String;
begin
  FullFileName := ExtractFilePath(Application.ExeName) + PathDelim + ShortFileName;
  IniFile := TIniFile.Create(FullFileName);
  IniFile.WriteBool(Section, 'RadioButton1.Checked', RadioButton1.Checked);
  IniFile.WriteBool(Section, 'RadioButton2.Checked', RadioButton2.Checked);
  IniFile.WriteBool(Section, 'RadioButton3.Checked', RadioButton3.Checked);
  IniFile.Free;

А вот загрузку написать не получается Пробывал так:

const
  ShortFileName : String = 'MyIniFile.ini';
  Section       : String = 'Main';
var
  IniFile       : TIniFile;
  FullFileName  : String;
begin
  FullFileName := ExtractFilePath(Application.ExeName) + PathDelim + ShortFileName;
  IniFile := TIniFile.Create(FullFileName);
  RadioButton1.Checked := IniFile.ReadBool(Section, 'RadioButton1.Checked', True); //True - это на случай, если в INI нет сведений об этом компоненте.
  RadioButton2.Checked := IniFile.ReadBool(Section, 'RadioButton2.Checked', False); //False - если в INI нет сведений.
  RadioButton3.Checked := IniFile.ReadBool(Section, 'RadioButton3.Checked', False); //False - если в INI нет сведений.
  IniFile.Free;

Программа запускается, но почти сразу вылетает ошибка:

Что я делаю не так?!?!

[raxp]

ну во-первых..

FullFileName := ExtractFilePath(Application.ExeName ) + PathDelim + ShortFileName;
IniFile := TIniFile.Create(FullFileName);

лучше так

ini:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));

во-вторых: что это у вас там на скрине за - options.rbinnovex.checked ?
в коде что выше у вас - RadioButton1.Checked

[TaYgA]

На скрине все компоненты уже переименованные, а в коде который я выложил реальные название, чтоб было понятно...
options.rbinnovex.checked - это Form2.RadioButton1.checked....
Все настройки у меня делаются на форме 2 и сохранение в ини файл происходит там же...

[raxp]

приложите сюда ваш проект (оставьте только сохранение и чтение)...

[TaYgA]

Незнаю получится ли, я использовал компаненты BusinessSkin? но давайте попробуем....

[raxp]

exe не нужен, качать долго

[Arigato]

А Form2 уже создана? В каком обработчике происходит загрузка из ini-файла?