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

← →
UMU © (2007-06-04 16:32) [0]

Добрый день.

На форме есть 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; //***

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

← →
clickmaker © (2007-06-04 16:35) [1]

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

← →
Loginov Dmitry © (2007-06-04 16:37) [2]

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

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

← →
Loginov Dmitry © (2007-06-04 16:41) [3]

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

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

Запись в ini файл Найти похожие ветки