![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#6
|
|||
|
|||
|
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 так там можно, неужели в делфи нельзя так? |