super_ini

[BDA]

Немножко некропоста.

procedure InitPanel(Panel: TPanel; IniFile: TIniFile; const Section: string);
begin
  with Panel, IniFile do
  begin
    Width := ReadInteger(Section, 'width', Width);
    Height := ReadInteger(Section, 'height', Height);
    Left := ReadInteger(Section, 'left', Left);
    Top := ReadInteger(Section, 'top', Top);
  end;
end;

// "копия" метода TIniFile.ReadSectionValues
procedure ReadSectionValues(IniFile: TIniFile; const Section: string; Strings:
  TStrings);
var
  KeyList: TStringList;
  I: Integer;
begin
  KeyList := TStringList.Create;
  try
    IniFile.ReadSection(Section, KeyList);
    Strings.BeginUpdate;
    try
      Strings.Clear;
      for I := 0 to KeyList.Count - 1 do
        Strings.Add(IniFile.ReadString(Section, KeyList[I], ''))
    finally
      Strings.EndUpdate;
    end;
  finally
    KeyList.Free;
  end;
end;

procedure TForm1.IniFileRead;
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'key.ini');

  try
    Form1.Width := IniFile.ReadInteger('form', 'width', form1.Width);
    Form1.Height := IniFile.ReadInteger('form', 'height', form1.Height);

    InitPanel(Panel1, IniFile, 'Panel');
    InitPanel(Panel3, IniFile, 'primary');
    InitPanel(Panel4, IniFile, 'secundary');
    InitPanel(Panel5, IniFile, 'tertiary');
    InitPanel(Panel6, IniFile, 'message');

    ReadSectionValues(IniFile, 'key_1', memo3.Lines);
    ReadSectionValues(IniFile, 'key_2', memo4.Lines);
    ReadSectionValues(IniFile, 'key_3', memo5.Lines);
  finally
    IniFile.Free;
  end;
end;

[leon2009sp]

Спасибо!!!