Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Помогите с сохранением настроек проги

Ответить
Настройки темы
Помогите с сохранением настроек проги

Новый участник


Сообщения: 16
Благодарности: 0

Профиль | Отправить PM | Цитировать


Помогите, как сделать так, чтобы прога сохраняла значения CheckBox. Т.е. запускаю я прогу, помечаю CheckBox и закрываю прогу. Открываю вновь, и CheckBox стоит помеченным.
Пожалуйста растолкуйте поподробнее.

Отправлено: 19:12, 15-05-2005

 

Аватара для Savant

Старожил


Сообщения: 300
Благодарности: 6

Профиль | Сайт | Отправить PM | Цитировать


Среда разработки?

Отправлено: 19:42, 15-05-2005 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 16
Благодарности: 0

Профиль | Отправить PM | Цитировать


Ах да, простите Borland Delphi 6.

Отправлено: 20:16, 15-05-2005 | #3


Аватара для Savant

Старожил


Сообщения: 300
Благодарности: 6

Профиль | Сайт | Отправить PM | Цитировать


Есть минимум 2 популярных способа:

1. Создание потомка класса и в его конструкторе/деструкторе загружать/сохранять информацию. В данном случае такой подход имхо громозок.

2. Обработка событий OnCreate и OnDestroy формы, на которой расположен контрол. Например следующим образом:
Код: Выделить весь код
procedure TForm1.FormCreate(Sender: TObject);
var
  F: TiniFile;
begin
  // открытие конфигурационного файла
  F := TiniFile.Create(Copy(Application.ExeName, 1, Length(Application.ExeName) - Length(ExtractFileExt(Application.ExeName))) + '.cfg');
  // чтение значения для контрола CheckBox1
  CheckBox1.Checked := F.ReadBool('main', CheckBox1.Name, False); // третий параметр - значение по умолчанию (напр. при первом запуске программы)
  // закрытие файла
  F.Free
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  F: TiniFile;
begin
  F := TiniFile.Create(Copy(Application.ExeName, 1, Length(Application.ExeName) - Length(ExtractFileExt(Application.ExeName))) + '.cfg');
  F.WriteBool('main', CheckBox1.Name, CheckBox1.Checked);
  F.Free
end;
Также значения можно хранить и в реестре. Реализация мало чем отличается от данной.

Отправлено: 03:17, 16-05-2005 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Помогите с сохранением настроек проги

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Ошибка - Восстановить XP с сохранением программ и настроек Lo-bl Microsoft Windows 2000/XP 5 21-02-2009 17:37
ввод в домен ПК с сохранением локального профиля, сетвых дисков, настроек Win... George-III Microsoft Windows NT/2000/2003 3 06-08-2008 16:03
Обновление англ версии сервера 2003 на русс.версию с Сохранением настроек darevil Microsoft Windows NT/2000/2003 4 12-09-2006 10:44
Установка XP поверх XP с сохранением всех настроек. cordlesspass Microsoft Windows 2000/XP 6 30-12-2004 13:14
Помогите с сохранением .mp3 Guest Хочу все знать 4 28-12-2002 14:35




 
Переход