INI с настройками.

[ScreN]

Друзья. Я опять к вам. Я один не могу справится.
Помогите мне еще раз.

Дело вот такое.

Есть 2 формы. Одна главная форма, с программой. Вторая форма, с настройками этой программы.

Так вот. Написал код.

///////////////////////////
/// Настройки программы INI ///
// Процедура сохранения настроек //
Procedure TForm1.WriteConfig;
Var
  IniFile: TIniFile;
Begin
  IniFile:=TIniFile.Create('..\Имя файла');
   IniFile.WriteBool('ConfigForm','AutoSaveCheck',ConfigForm.AutoSaveCheck1.Checked);
   IniFile.WriteInteger('ConfigForm','TimeEditSave',ConfigForm.TimeEditSave.Value);
   IniFile.WriteBool('ConfigForm','LogFileCheck',ConfigForm.LogFileCheck.Checked);
   IniFile.WriteBool('ConfigForm','ClearBufferCheck',ConfigForm.ClearBufferCheck.Checked);
   IniFile.WriteBool('CinfigForm','SelVista',ConfigForm.SelVista.Checked);
   IniFile.WriteBool('CinfigForm','SelOfficeBlack',ConfigForm.SelOfficeBlack.Checked);
   IniFile.WriteBool('CinfigForm','SelOfficeBlue',ConfigForm.SelOfficeBlue.Checked);
  IniFile.Free;
End;

// Процедура загрузки натсроек //
Procedure TForm1.ReadConfig;
Var
  IniFile: TIniFile;
Begin
  IniFile:=TIniFile.Create('..\Имя файла');
  ConfigForm.AutoSaveCheck1.Checked:=IniFile.ReadBool('ConfigForm','AutoSaveCheck',ConfigForm.AutoSaveCheck1.Checked);
  ConfigForm.TimeEditSave.Value:=IniFile.ReadInteger('ConfigForm','TimeEditSave',ConfigForm.TimeEditSave.Value);
  ConfigForm.LogFileCheck.Checked:=IniFile.ReadBool('ConfigForm','LogFileCheck',ConfigForm.LogFileCheck.Checked);
  ConfigForm.ClearBufferCheck.Checked:=IniFile.ReadBool('ConfigForm','ClearBufferCheck',ConfigForm.ClearBufferCheck.Checked);
  ConfigForm.SelVista.Checked:=IniFile.ReadBool('ConfigForm','SelVista',ConfigForm.SelVista.Checked);
  ConfigForm.SelOfficeBlack.Checked:=IniFile.ReadBool('ConfigForm','SelOfficeBlack',ConfigForm.SelOfficeBlack.Checked);
  ConfigForm.SelOfficeBlue.Checked:=IniFile.ReadBool('ConfigForm','SelOfficeBlue',ConfigForm.SelOfficeBlue.Checked);
  IniFile.Free;
  End;

Это щас он перенесенный у меня в главную форму.

Если я это код пишу в форме с настройками ConfigForm. Тогда все ок сохраняется. Ну то есть, все как надо.

НО. Эти настройки будут загружатся только в том случае, если форма с настройками открыта (Запущена). Тогда идет ReadConfig. Так как у нее в FormCreate стоит ReadConfig...

Но это же не правильно. Так как настройки должны загружаться сразу при старте программы. А не только тогда когда открыта форма с настройками.

Так вот поэтому я и перенес этот, с формы с настройками, на главную форму.

И опять же НО!.. Он не работает в ней. Ошибку при компиляции показывает.

Если кому будет нужно. То могу выслать ScreenShot ошибки..
Помогите мне. У меня из-за этого встал проект.
Заранее спасибо!

[iankov]

Можно и без скрина. Что в ошибке пишется?

[ScreN]

Project NameProject.exe raised exception class EAccessViolation
'Access violation at address 0051CA77 in module 'NameProject.exe'.
Read of address 00000308 Process stopped. Use Step or Run to continue

Вот это пишется при компиле.

И подсвечивается синем. вот это строка

ConfigForm.AutoSaveCheck1.Checked:=IniFile.ReadBool('ConfigForm','AutoSaveCheck',ConfigForm.AutoSaveCheck1.Checked);

[ScreN]

И еще сходу не выходя из темы.. подскажите мне как написать настройку.
Чтобы ы INI запоминались размер окна. То есть если развернуто. то запомнить в каком оно положении. И при следующем старте, запустить с таким же размером.. То есть развернутым..
Проверка параметров Top Left Height Width косячит..
Вроде все сохраняется.. Но при следующем запуске программы окно получается не развернуто.. а в обычном состоянии.. Но зато на весь экран.. Но не развернуто... Можно ли как нибудь проверить окно на Minimize Maximize.. То есть развернуто ли оно на весь экран или находится в прежнем состоянии. То есть не в развернутом виде

[KORN]

при закрытии проверяй если она wsMaximized тогда записывай как true иначе как false;

if form1.windowstate=wsMaximized then
ini.writebool('options', 'Maximized', true);

if form1.windowstate=wsNormal then
ini.writebool('options', 'Maximized', false);

[ScreN]

И все таки собственно с проблемой настроек помогите мне пожалуйста..

Видать никто мне не поможет

[Jeni]

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

Видать никто мне не поможет

Разве KORN не помог? По-моему, всё исчерпывающе.

[mihali4]

Так что ж тут непонятного-то?
Судя по этой строке:
ConfigForm.AutoSaveCheck1.Checked:=IniFile.Rea dBool('ConfigForm','AutoSaveCheck', ConfigForm.AutoSaveCheck1.Checked);
и учитывая, что

он перенесенный у меня в главную форму

что у вас получается?
А то, что вы при создании формы Form1 почему-то обращаетесь к еще не созданной форме ConfigForm...
Вот вам и Access violation !

[ScreN]

Как это не к созданной? Оно существует.. оно есть..и называется ConfigForm

это вторая форма... с настройками

И что тогда делать? Переносить все настройки обратно в форму ConfigForm... Но тогда зачем они нужны? Если они будут загружатся только при создании формы.. то есть когда она откроется ?

[KORN]

ConfigForm.AutoSaveCheck1.Checked:= IniFile.ReadBool('ConfigForm','Auto SaveCheck',ConfigForm.AutoSaveCheck 1.Checked);
надо писать не так а дефолтное значение т.е. true или false
ConfigForm.AutoSaveCheck1.Checked:= IniFile.ReadBool('ConfigForm','Auto SaveCheck', false);