Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TCheckBox

Автор: Ragli 13.11.2006, 18:46

Привет,не подскажете как после изменения названия в TCheckBox ,имя сохранялась в Caption,чтоб после закрытия прогрммы имя сохранялась ?

вот например изменяю имя TCheckBox вот таким образом :

Код


procedure TForm1.Button1Click(Sender: TObject);
var
   str_name:string;
begin
   str_name:=Form1.Edit1.Text;
   if CheckBox1.Checked=true then
      CheckBox1.Caption:=str_name;
   Form1.Edit1.Clear;

end;

Автор: Sunvas 13.11.2006, 18:54

Первое:

Цитата(Ragli @ 13.11.2006, 18:46

)

if CheckBox1.Checked=true then

надо так

Код


if CheckBox1.Checked then

Второе:

Цитата(Ragli @ 13.11.2006, 18:46

)

чтоб после закрытия прогрммы имя сохранялась ?

Так перед закрытием емя где-то сохраняй. А при загрузке программы - читай и восстанавливиай.
Мест хранения данных есть масса! Ищи по форуму!

И третье:

Цитата(Ragli @ 13.11.2006, 18:46

)

вот например изменяю имя TCheckBox вот таким образом :

Ты меняешь не имя чекбокса, а его заголовок!

Автор: Reptile 13.11.2006, 18:56

Сохраняй в реестр или .ini файл

Автор: a_n_d_y 13.11.2006, 19:14

не обязательно в .ини... Можно просто в любой файл сохранить...

Автор: Reptile 13.11.2006, 19:24

a_n_d_y, я знаю smile

, просто первое что пришло то и написал smile

, а вообще
Sunvas прав

Цитата(Sunvas @ 13.11.2006, 18:54

)

Мест хранения данных есть масса!

Автор: Sunvas 13.11.2006, 19:57

Место хранения надо выбирать в зависимости от потребностей и назначения программы.

Автор: Ragli 13.11.2006, 23:25

Непосоветуете как мне сохранять?
Если можно,то поподробнее.
Спасибо большое.

Автор: Quadr0 14.11.2006, 01:04

http://forum.vingrad.ru/topic-119816/hl/tinifile/index.html
http://forum.vingrad.ru/topic-108659/unread-1/hl/tinifile/index.html
http://forum.vingrad.ru/topic-70410/unread-1/hl/tinifile/index.html

Автор: Sunvas 14.11.2006, 07:59

Цитата(Ragli @ 13.11.2006, 23:25

)

Непосоветуете как мне сохранять?

Тада расскажи потребности и назначения программы.

Автор: Guedda 14.11.2006, 08:56

Код


uses
  IniFiles;

var
  IniFile : TIniFile;

procedure WriteCaptionToIniFile;
begin
  IniFile := TIniFile.Create('MyIni.ini');
  IniFile.WriteString('OPTIONS', 'CheckBoxCapt', CheckBox1.Caption);
  IniFile.Free;
end;

procedure ReadCaptionFromIniFile;
begin
  IniFile := TIniFile.Create('MyIni.ini');
  CheckBox1.Caption := IniFile.ReadString('OPTIONS', 'CheckBoxCapt', '');
end;

А вообще можешь взять http://forum.vingrad.ru/index.php?showtopic=21411&view=findpost&p=686471, и юзать в своих программах.

Автор: Ragli 14.11.2006, 11:24

Спасибо

Автор: Ragli 14.11.2006, 21:56

Не подскажете как сохранять и считывать эту информацию в/ из реестр(а)?

Автор: Guedda 14.11.2006, 22:05

Код


uses
  Tregistry;

var
  Reg : Tregistry;

procedure WriteCaptionToRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\MyProgram\', true);
  Reg.WriteString('CheckBoxCapt', CheckBox1.Caption);
  Reg.CloseKey;
  Reg.Free;
end;

procedure ReadCaptionFromRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\MyProgram\', true);
  CheckBox1.Caption := Reg.ReadString('CheckBoxCapt');
  Reg.CloseKey;
  Reg.Free;
end;

Добавлено @ 22:05
Модератор: Пожалуйста, один топик - один вопрос.