Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2017, 19:25   #1
Виктория1990
 
Аватар для Виктория1990
 
Регистрация: 03.06.2017
Сообщений: 8
Вопрос Работа с ini

Здравствуйте!
Нужна помощь, нужно переделать код
чтобы из Edit сохранялось в .ini

Код:
procedure TForm1.FormDestroy(Sender: TObject);
var
  Ini: Tinifile; //необходимо создать объект, чтоб потом с ним работать
begin
  //создали файл в директории программы
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
  Ini.WriteInteger('Size','Width',form1.width);
  Ini.WriteInteger('Size','Height',form1.height);
  Ini.WriteInteger('Position','X',form1.left);
  Ini.WriteInteger('Position','Y',form1.top);
  Ini.Free;
end;



код который нужно переделать:

destructor TAmplituda.Destroy;
begin
  inherited;                   
  if Assigned(FIni) then
  begin
    // Запись параметров в ini файл
    FIni.WriteFloat( 'INPUT_VALUES', 'N', N );
    FIni.WriteFloat( 'INPUT_VALUES', 'A', A );
    FIni.WriteFloat( 'INPUT_VALUES', 'M', M );
    FIni.WriteFloat( 'INPUT_VALUES', 'N_MIN', Nmin );
    FIni.WriteFloat( 'INPUT_VALUES', 'N_MAX', Nmax );
    FIni.WriteFloat( 'INPUT_VALUES', 'N_STEP', step );
    FIni.Free;
  end;
end;

Последний раз редактировалось Вадим Мошев; 05.06.2017 в 21:26.
Виктория1990 вне форума Ответить с цитированием
Старый 05.06.2017, 22:59   #2
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

А что, разве
Код:
FIni.WriteString("EditsParams", "Edit1", Edit1.Text);
не прокатывает???
kropotkina-alice вне форума Ответить с цитированием
Старый 05.06.2017, 23:25   #3
Виктория1990
 
Аватар для Виктория1990
 
Регистрация: 03.06.2017
Сообщений: 8
По умолчанию

Цитата:
Сообщение от kropotkina-alice Посмотреть сообщение
А что, разве
Код:
FIni.WriteString("EditsParams", "Edit1", Edit1.Text);
не прокатывает???
Спасибо!
Виктория1990 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с ini файлом sergei92 C++ Builder 13 01.09.2015 12:39
Работа с *.ini kta87 Помощь студентам 1 16.10.2011 20:21
Работа с INI-файлом iskurt Помощь студентам 3 03.02.2010 08:08
Работа с Ini Rebel123 Общие вопросы Delphi 3 17.09.2009 12:59
работа с фалами ini apocalypce Помощь студентам 8 14.08.2009 21:04