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

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

Как записать положения CheckBoxа в inifile. [D7, WinXP]

Страницы:   < 1 2 >

Logan ©   (2005-07-02 23:34:00) 

Как записать положения CheckBoxа в inifile, а при загрузке программы его прочитать!!!

---

Logan   (2005-07-03 13:36:00) [21]

Вылетает ошибка Access violation at address 00486F2A in module...
Скорей всего ошибка происходит при чтении, но почему???

---

lookin   (2005-07-03 13:19:00) [22]

Сама задумка (имхо) правильная.

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

procedure TMainForm.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
 Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'ConfigFile.ini');
 if Ini.ReadBool('Start', 'Load', False) then begin
 visible := true;
 form1.Visible := false; end;
 if Ini.ReadBool('Start', 'Load', True) then begin
 visible := false;
 form1.Visible := true; end;
 Ini.Free;
end;

---

Logan   (2005-07-03 13:13:00) [23]

А как её правильно реализовать!!!

---

Eraser   (2005-07-03 13:11:00) [24]

Logan   (03.07.05 13:10) [2]

Сама задумка имхо неправильная.

---

Logan   (2005-07-03 13:10:00) [25]

Всем приятного время препровождения!!!
У меня тут проблемка образовалась, а как решить не знаю кто может помогите.
Есть две формы MainForm и Form1, на MainForm расположен CheckBox1 и когда пользователь тыкает в этот CheckBox1(Caption=>Не показывать это окно) там появляется галочка, чтобы при старте моей программы MainForm не показывалось, а показывалась Form1 и нада чтобы это всё записывалось в Iniфайл, а при старте соответственно читалось!!!
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'ConfigFile.ini');
Ini.WriteBool('Start', 'Load', CheckBox1.Checked);

Ini.Free;
  end;

procedure TMainForm.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'ConfigFile.ini');
  if Ini.ReadBool('Start', 'Load', False) then
  visible := true;
  form1.Visible := false;
  if Ini.ReadBool('Start', 'Load', True) then
  visible := false;
  form1.Visible := true;
  Ini.Free;
 end;
Вот что у меня получилось сваргинить, и конечно это всё не работает... Люди помогите исправить... хмм... А на form1 случайно не надо вешать код для проверки CheckBoxов!!!

---

Просто Джо   (2005-07-02 23:38:00) [26]

uses IniFiles;
var
 IniFile: TIniFile;
...

IniFile := TIniFile.Create ('d:\inifile.ini');

IniFile.WriteBool ('Section','MyCheckBox',CheckBox1.Checked);

CheckBox1.Checked := IniFile.ReadBool ('Section','MyCheckBox',False);

---

Страницы:   < 1 2 >

Наверх