| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись в ini файл

UMU ©   (2007-06-04 16:32:00) 

Добрый день.

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

Если записать содержание Edit в ini до открытия диалога, то работает нормально, но после открытия диалога, запись не происходит.

//Открытие диалога
 if OpenDlg.Execute then
    Edit.Text:=OpenDlg.FileName
 OpenDlg.Free;
//***

//Запись в ini файл
procedure TForm.WriteIni(ASection, AString, AValue : String);
var
 sIniFile: TIniFile;
 sPath: String[60];
Begin
 GetDir(0,sPath);
 sIniFile := TIniFile.Create(sPath + '\Settings.INI');
 sIniFile.WriteString(ASection, AString, AValue);
 sIniFile.Free;
End;
//***

Подскажите, в чем дело?

---

UMU   (2007-06-04 16:45:00) [1]

Большое спасибо

---

Loginov Dmitry   (2007-06-04 16:41:00) [2]

Так попробуй:
sPath := ExtractFilePath(ParamStr(0)) + 'Settings.INI';

---

Loginov Dmitry   (2007-06-04 16:37:00) [3]

> GetDir(0,sPath);
> sIniFile := TIniFile.Create(sPath + '\Settings.INI');


что за шаманство?

---

clickmaker   (2007-06-04 16:35:00) [4]

OpenDialog сменил текущую папку, которая возвращается GetDir(0,sPath);?
Почему бы полный путь не указывать в TIniFile.Create?

---

Наверх