VPF::Как сохранить состояние CheckBox? - Форум программистов

Bibus

Дата 7.10.2004, 08:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Dimich

Дата 7.10.2004, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 1
Всего: 7

Можно так поступить: ну например сохранить состояние CheckBox.Checked в реестре, INI-файле при выходе из программы, а при запуске считать эти значения. Другое наверно не стоит выдумывать - так все делают. Поэтому тебе может быть стоит почитать инфу о том, как работать с реестром и INI файлами

--------------------

Не работает - исправь, работает - не трогай!!!

Akella

Дата 7.10.2004, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Поставь EhLib

или

ini.WriteBool(const Section, Ident: string; Value: Boolean);

ini.WriteBool(MAINFORM, CHEK1,checkbox1.cheked);

Pakshin A. S.

Дата 7.10.2004, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Создаешь массив боксов при создании формы

Код


...
var
 Boxes: array of TCheckBox; //Глобальная переменная
...
var
 i:integer;
begin
 SetLength(Boxes, <Кол-во компонентов>-1);
 Boxes[1]:=ChackBox1;
 и т. д.
end;

Загружаем состояние из INI

Код


uses Inifiles;
...
var 
 f:TiniFile;
 i:integer;
begin
 f:=TiniFile.Create(FileName);
 for i:=0 to Length(Boxes) do
  Boxes[i].Checked:=f.ReadBool('Section Name', IntToStr(i), false);
 f.Free;
end;

Сохраяем в INI

Код


uses IniFiles;
...
var
 f:TiniFile;
 i:integer;
begin
 f:=TIniFile.Create(FileName);
 for i:=0 to Length(Boxes) do
  f.WriteBool('Section Name', IntToStr(i), Boxes[i].Checked);
 f.Free;
end;

Вроде так...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »