![]() |
|
|
Регистрация | << Правила форума >> | 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 так там можно, неужели в делфи нельзя так? |