Показать сообщение отдельно
  #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 так там можно, неужели в делфи нельзя так?
Ответить с цитированием