Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #6  
Старый 10.04.2010, 17:48
nikki4 nikki4 вне форума
Прохожий
 
Регистрация: 07.04.2010
Сообщения: 10
Репутация: 10
По умолчанию

1. нагуглил, нашел.. если кому интересно, вот как сохранять в ини файл:

Код:
Uses
   IniFiles,
...
 Private
    { Private declarations }
    Procedure ReadParams;
    Procedure WriteParams;
...
Procedure TForm1.ReadParams;
Var
IniFile: TIniFile;
Begin
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
Edit1.Text:=IniFile.ReadString('VOL','Id1',Edit1.Text);
IniFile.Free;
End;
Procedure TForm1.WriteParams;
Var
IniFile: TIniFile;
Begin
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
IniFile.WriteString('VOL','Id1',Edit1.Text);
IniFile.Free;
End;
Procedure TForm1.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
WriteParams;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
ReadParams;
End;

Работает, но почему-то только 1 раз.. т.е. закрываю -с сохраняется, открываю - загружается, закрываю - ничего не сохраняется
//удалил IniFile.Free; при записи, вроде теперь сохраняется постоянно


2. спасибо

3. а попроще нельзя? ладно.. напишу, типа: "наведите курсор мыши на кнопук и нажмите энтер.." тогда запишутся координаты

4. знаю простую примитивную прогу uopilot так там можно, неужели в делфи нельзя так?
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:37.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025