Получить все значения из секций INI-файла

[Shouldercannon]

Доброго времени суток!
Есть INI-файл:

[MenuItem1]
MenuItemCaption=System
SubMenuItemCaption1=Reg
SubMenuItemCaption2=Policies
[MenuItem2]
MenuItemCaption=Debug
SubMenuItemCaption1=Ping
SubMenuItemCaption2=Cmd

Пытаюсь считать всё содержимое в ListBox

var
  SL: TStringList;
  INIFile: TINIFile;
  I: Integer;
begin
  SL := TStringList.Create;
  INIFile := TINIFile.Create(ExtractFilePath(Application.ExeName) + ExtensionsFile);
  INIFile.ReadSections(SL);

  for I := 0 to SL.Count - 1 do
  begin
    INIFile.ReadSectionValues(SL.Strings[I], ListBox1.Items);
  end;

  FreeAndNil(SL);
  FreeAndNil(INIFile);
end;

На выходе получаю значения только последней секции.

MenuItemCaption=Debug
SubMenuItemCaption1=Ping
SubMenuItemCaption2=Cmd

[come-on]

А вы чего ждали, чуда?
про то что чуда не будет написано в описании метода ReadSectionValues

[Stilet]

Пытаюсь считать всё содержимое в ListBox

Все содержимое наверное лучше через StringList читать.

[Vapaamies]

Пытаемся вытащить тему на конструктив...

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

На выходе получаю значения только последней секции.

ReadSectionValues очищает переданный ей StringList перед заполнением. Если нужны значения нескольких секций, читать их в цикле в отдельный StringList, а потом добавлять через ListBox.Items.AddStrings.

А вообще-то да, можно было подумать и о такой простой вещи догадаться самостоятельно.

[min@y™]

А вообще-то да, можно было подумать и о такой простой вещи догадаться самостоятельно.

А если залезть в IniFiles.pas, то и догадываться не придётся.

procedure TIniFile.ReadSectionValues(const Section: string; Strings: TStrings);
var
  KeyList: TStringList;
  I: Integer;
begin
  KeyList := TStringList.Create;
  try
    ReadSection(Section, KeyList);
    Strings.BeginUpdate;
    try
      Strings.Clear; // <-------------------------------- just look that
      for I := 0 to KeyList.Count - 1 do
        Strings.Add(KeyList[I] + '=' + ReadString(Section, KeyList[I], ''))
    finally
      Strings.EndUpdate;
    end;
  finally
    KeyList.Free;
  end;
end;

Если подобную задачу поставили перед таким извращенцем-перфекционистом, как я, то он бы написал потомка с методами, типа:

procedure TMyIniFileEx.ReadAllSectionValues(Strings: TStrings);
procedure TMyIniFileEx.ReadWildCardSectionValues(const SectWildCard: string; Strings: TStrings);
// + ещё 3-5-10 всяких ненужных вещей :)

[kropotkina-alice]

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

Доброго времени суток!
Есть INI-файл.
Пытаюсь считать всё содержимое в ListBox
На выходе получаю значения только последней секции.

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

ReadSectionValues очищает переданный ей StringList перед заполнением. Если нужны значения нескольких секций, читать их в цикле в отдельный StringList, а потом добавлять через ListBox.Items.AddStrings.

Откуда такая склонность к извращениям?
Я бы сделала так:

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('my_ini_file.ini');
end;

[min@y™]

Так, Алисе больше не наливать!

[Vapaamies]

Сообщение от kropotkina-alice

Откуда такая склонность к извращениям?
Я бы сделала так:

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('my_ini_file.ini');
end;

И это будет неправильно. Склеенные в один список значения нескольких секций не есть содержимое ini-файла. Различие, как минимум, в строчках с именами секций.

[kropotkina-alice]

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

Склеенные в один список значения нескольких секций не есть содержимое ini-файла. Различие, как минимум, в строчках с именами секций.

Я на зрение не жалуюсь и видимо поэтому прекрасно вижу названия всех трех секций (это копия содержимого листбокса):

[Init]
LastNode=613
Sound=0
Multi=0
NotShow=0
BaseName=База вопросов и ответов по Delphi
TrayName=База данных
[Init1]
LastNode=613
Sound=0
Multi=0
NotShow=0
BaseName=База вопросов и ответов по Delphi
TrayName=База данных
[Init2]
LastNode=613
Sound=0
Multi=0
NotShow=0
BaseName=База вопросов и ответов по Delphi
TrayName=База данных

А у вас, судя по всему, проблемы со зрением?
Так я их специально для вас выделила.
Теперь видны?

[FaTaL]

Алиса, перечитайте ещё раз, что хочет ТС.