VPF::TCheckBox - Форум программистов

Ragli

Дата 13.11.2006, 18:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет,не подскажете как после изменения названия в 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;

Это сообщение отредактировал(а) Girder - 16.11.2006, 17:24

Sunvas

Дата 13.11.2006, 18:54 (ссылка)

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

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

Первое:

Цитата(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 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3

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

a_n_d_y

Дата 13.11.2006, 19:14 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Reptile

Дата 13.11.2006, 19:24 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3

a_n_d_y, я знаю smile

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

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

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

)

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

Sunvas

Дата 13.11.2006, 19:57 (ссылка)

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

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

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

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Ragli

Дата 13.11.2006, 23:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Quadr0

Дата 14.11.2006, 01:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Sunvas

Дата 14.11.2006, 07:59 (ссылка)

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

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

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

)

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

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

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Guedda

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

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


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;

А вообще можешь взять эти функции, и юзать в своих программах.

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

Ll 2

Ragli

Дата 14.11.2006, 11:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо

Ragli

Дата 14.11.2006, 21:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Guedda

Дата 14.11.2006, 22:05 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


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
Модератор: Пожалуйста, один топик - один вопрос.

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

Ll 2

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