|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ini.ReadString не читает переменную
Доброго времени.
Столкнулся с такой проблемой: Код:
currentUser := iniOpts.ReadString('options','CurrentUser',''); Код:
iniOpts.WriteString('options','CurrentUser',currentUser); Спасибо. |
#2
|
|||
|
|||
А можно посмотреть более крупный кусочек кода.
В приведенном примере все ОК, надо смотреть как создается ini и вообще как что сделано. |
#3
|
|||
|
|||
Есть две функции.
Код:
procedure OptionsLoad(); var iniOpts :TINIFIle; begin with mainForm do begin iniOpts := TiniFile.Create(sProgPath+'options.ini'); edFolderSrc.Text := iniOpts.ReadString('options','FolderSrc',sProgPath); edFolderDest.Text := iniOpts.ReadString('options','FolderDest',sProgPath); edDBase.Text := iniOpts.ReadString('options','DBase',sProgPath + 'data.db'); ClientHeight := iniOpts.ReadInteger('options','wHeight',640); ClientWidth := iniOpts.ReadInteger('options','wWidth',950); Left := iniOpts.ReadInteger('options','wLeft',0); Top := iniOpts.ReadInteger('options','wTop',0); cbFileMove.Checked := iniOpts.ReadBool('options','MoveFiles',false); cbFileCopy.Checked := iniOpts.ReadBool('options','CopyFiles',false); cbAutoGetFileList.Checked := iniOpts.ReadBool('options','AutoGetFile',false); cbUpdateExisting.Checked := iniOpts.ReadBool('options','UpdateExisting',false); edMoveTemplate.Text := iniOpts.ReadString('options','MoveTemplate',''); cbUseMoveTemplate.Checked := iniOpts.ReadBool('options','UseMoveTemplate',false); edFolderCheck.Text := iniOpts.ReadString('options','FolderCheck',sProgPath); currentUser := iniOpts.ReadString('options','CurrentUser',''); Update; iniOpts.Free; end; end; procedure OptionsSave(); var iniOpts :TINIFIle; begin with mainForm do begin iniOpts:=TiniFile.Create(sProgPath+'options.ini'); // еще опции iniOpts.WriteString('options','CurrentUser',cbUser.Items[cbUser.ItemIndex]); // еще опции iniOpts.Free; end; end; Кодировка ини файла Ansi. cbUser.Items[cbUser.ItemIndex] значение получает нормально. Если строку в ини удалить, возьмется значение по-умолчанию; OptionsSave запишет нормально, но читать снова не будет. UPD: FolderSrc, FolderDest, DBase читаются нормально, потом где-то в чтении чисел или булевых что-то ломается и последние три ReadString уже не работают (берут значение по-умолчанию) Последний раз редактировалось kossr, 10.09.2018 в 20:38. |
#4
|
|||
|
|||
Покажи полный ini-файл.
пока никакого криминала не вижу. |
#5
|
|||
|
|||
Абсолютно дебильная ошибка.
При чтении ини файла sProgPath еще не была считана, соответственно путь к файлу был просто "options.ini". При записи путь был уже правильный. Код:
iniOpts := TiniFile.Create(ExtractFilePath(ParamStr(0))+'options.ini'); (но меня все еще смущает, почему читались первые строки...Ну, если не указывать путь к файлу, то он будет искаться в %systemroot%... но откуда он там взялся?..) Последний раз редактировалось kossr, 11.09.2018 в 09:12. |
#6
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |