Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Сохранение настроек программы при ее выключении  (Прочитано 8684 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Dr.Snipper
Гость
« : 02-08-2004 17:12 » 

Допустим ты сделал программу с множеством настроек, но при выходе из нее все настройки пропадают, и при новом запуске всё надо
настраивать вновь!!!
 ВОПРОС???:
Как сдалать так, чтобы например нажал на кнопку и все настроки
соханились в реестере или где нибудь еще(мне не важно), и при
очередном запуске  все настройки загружались или восстанавливались
(тоже не важно)
 PS
Желательно писать исходник целиком (со всякими юз есами и тд),
или ссылку на этот исходник, ну а если кто-то найдет компонент
выполняющий такую функцию то тоже пожалуста оставьте ссылку на этот компонент!!! :l_lick_lick:
Записан
Finch
Спокойный
Администратор

il
Offline Offline
Пол: Мужской
Пролетал мимо


« Ответ #1 : 02-08-2004 18:26 » 

Dr.Snipper, Здесь нет ничего сложного. Сделай запись
Код:
Type
TSetup = record
    Name{PChar;                                  /Поля твоих настроек
    ....................
    ....................
    ....................
   End;

Var
FSetup TSetup;

Затем делаеш две процедуры, одну для записи, вторую для чтения записи.
Свои настройки береш спокойно FSetup.Name;
Записан

Не будите спашяго дракона.
             Джаффар (Коша)
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 02-08-2004 18:44 » 

FormStorage из RxLib - www.delphiplus.org/rxlibrary/
Может сохранять настройки как в реестр, так и в ini-файл.
Записан

С уважением, Oldy.
Tonny_
Гость
« Ответ #3 : 07-09-2004 06:59 » 

-
Записан
Tonny_
Гость
« Ответ #4 : 07-09-2004 07:08 » 

uses
  IniFiles;

var
  MyOption1 : string;
  MyOption2 : double;
  MyOption3 : integer;

procedure TForm1.WriteIni;
var
  i : TIniFile;
  ini_file : string;
begin
  ini_file := ExtractFilePath(application.exename)+'myconfig.ini';
  i := TIniFile.Create(ini_File);
  try
    i.Writestring('Options','Настройка1',MyOption1);
    i.WriteFloat('Options','Настройка2',MyOption2);
    i.WriteInteger('Options','Настройка3',MyOption3);
  finally
    i.Free;
  end;

end;


procedure TForm1.ReadIni;
var
  i : TIniFile;
  ini_file : string;
begin
  ini_file := ExtractFilePath(application.exename)+'myconfig.ini';
  i := TIniFile.Create(ini_File);
  try
    MyOption1 := i.Readstring('Options','Настройка1',MyOption1);
    MyOption2 := i.ReadFloat('Options','Настройка2',MyOption2);
    MyOption3 := i.ReadInteger('Options','Настройка3',MyOption3);
  finally
    i.Free;
  end;

end;
Записан
Alanir Alonedaw
Гость
« Ответ #5 : 19-09-2004 07:52 » 

Tonny_
Ты бы хоть комменты подписал, а то может человек не понимает чего там у тебя начепятано.
 :arrow: И вообще, эта тема ещё актуальна или Dr.Snipper уже разобрался?
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines