[vers0]

Проблема в CheckBox'e и сохранении его состояния в Ini-файл.
Не могу понять, как сделать так, что бы ставя галочку на CheckBox "Сохранить настройки программы" программа создавала Ini-файл и записывала туда значение самого чекбокса, т.е. при запуске он проставлялся автоматом, а при снятии удалял этот самый Ini-файл.

Вот что наваял (если поставить галку и перезапустить программу - выдает ошибку):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.CheckBox2Click(Sender: TObject); begin Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Settings.ini'); Ini.WriteBool('Settings','Save_Settings',CheckBox2.Checked); Ini.Free; end;   procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if CheckBox2.Checked=false then   begin   DeleteFile('Settings.ini');   end; end;   procedure TForm1.FormCreate(Sender: TObject); begin Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Settings.ini'); CheckBox2.Checked:=Ini.ReadBool('Settings','Save_Settings',CheckBox2.Checked); Ini.Free; end;

Собственно не смотря на ошибку, все работает...

Просьба сильно тапками не кидаться, я первый раз использую INI, да и вообще не силен в программировании.

[vers0]

Перенес

Код:

1 2 3

Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Settings.ini'); Ini.WriteBool('Settings','Save_Settings',CheckBox2.Checked); Ini.Free;

в FormClose, вроде работает, но не уверен, что это правильно.