[kossr]

Доброго времени.
Столкнулся с такой проблемой:

Код:

    currentUser := iniOpts.ReadString('options','CurrentUser','');

currentUser всегда будет равен значению по-умолчению (пустой строке), хотя переменная точно записана

Код:

    iniOpts.WriteString('options','CurrentUser',currentUser);

Почему так?
Спасибо.

[lmikle]

А можно посмотреть более крупный кусочек кода.
В приведенном примере все ОК, надо смотреть как создается ini и вообще как что сделано.

[kossr]

Есть две функции.

Код:

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;

OptionsLoad вызывается в FormCreate, OptionsSave в FormClose.
Кодировка ини файла Ansi.
cbUser.Items[cbUser.ItemIndex] значение получает нормально.
Если строку в ини удалить, возьмется значение по-умолчанию; OptionsSave запишет нормально, но читать снова не будет.


UPD: FolderSrc, FolderDest, DBase читаются нормально, потом где-то в чтении чисел или булевых что-то ломается и последние три ReadString уже не работают (берут значение по-умолчанию)

[lmikle]

Покажи полный ini-файл.
пока никакого криминала не вижу.

[kossr]

Абсолютно дебильная ошибка.
При чтении ини файла sProgPath еще не была считана, соответственно путь к файлу был просто "options.ini". При записи путь был уже правильный.

Код:

    iniOpts := TiniFile.Create(ExtractFilePath(ParamStr(0))+'options.ini');

Утро вечера мудренее)
(но меня все еще смущает, почему читались первые строки...Ну, если не указывать путь к файлу, то он будет искаться в %systemroot%... но откуда он там взялся?..)

[Alegun]

Сообщение от kossr

...если не указывать путь к файлу, то он будет искаться в %systemroot%...

Да нет, искаться он будет в папке сборки (Application получает путя от системы при запуске) и видимо там такой ini-файл есть, раз считывает