[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 уже не работают (берут значение по-умолчанию)