|
|
Delphi и ini
Давайте кинем на форму 4 checkbox
Свойство Caption не важно!
Приступим к коду:
В USES добавим inifiles.
В свойство формы OnCreate впишем: (это при создание формы)
var
ini : TIniFile; //объявляем переменную типа inifile
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'checkbox.ini'); // создаем файл если его нету и открыть если он уже есть прочитаем параметры в нем
CheckBox1.Checked := ini.ReadBool('Param', '1', True); // там где 1,2,3,4 можете вписать все что хотите
CheckBox2.Checked := ini.ReadBool('Param', '2', True);
CheckBox3.Checked := ini.ReadBool('Param', '3', True);
CheckBox4.Checked := ini.ReadBool('Param', '4', True);
В свойство формы OnDestroy впишем: (это при закрытие формы)
var
ini : TIniFile;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'checkbox.ini');
ini.WriteBool('Param', '1', CheckBox1.Checked);//Там где 1,2,3,4 должно совпадать с тем что вписали в OnCreate
ini.WriteBool('Param', '2', CheckBox2.Checked);
ini.WriteBool('Param', '3', CheckBox3.Checked);
ini.WriteBool('Param', '4', CheckBox4.Checked);
ini.Free;
end;
Таким образом мы можем сохранять любые конфигурации нашей программы.
Всем удачи. |
| Категория: Примеры на Delphi7 | Добавил: DelphiAiX (25.10.2011)
|
| Просмотров: 2216
| Рейтинг: 5.0/1 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
