Выбрать данные из TStringList

[Shouldercannon]

Приветствую!
Есть файл с таким содержимым

PHP код:

[MenuItem1]
MenuItemCaption=Разработка
MenuItemImageIndex=0

SubMenuItemCaption=Test
SubMenuItemImageIndex=0
FileName=test.bat

[MenuItem2]
MenuItemCaption=Отладка
MenuItemImageIndex=0

SubMenuItemCaption=Debug
SubMenuItemImageIndex=0
FileName=debug.bat

[MenuItem3]
[MenuItem4] 


Как можно получить все строки выбранного блока? Например, указал [MenuItem2] и получил всё что у него есть или указал [MenuItem3] и получил пустоту т.к. у данного блока пока ничего нет.

[Serge_Bliznykov]

думаю, что метод ReadSection делает то, что Вы хотите.

[Аватар]

Только не TStringList, а TIniFile

  try
    List:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'aaa.ini');
    List.ReadSectionValues('MenuItem2',ListBox1.Items);
    List.Free;
  except
    ShowMessage('Ошибка чтения');
  end;

[Shouldercannon]

С радостью бы на INI сделал, только вот таких переменных

SubMenuItemCaption

в одном блоке может быть очень много
SubMenuItemCaption0, SubMenuItemCaption1 и тд делать тоже не вариант можно запутаться и к тому же если хочешь поменять порядок придётся все SubMenuItemCaption переименовывать

[TaLadno]

xml?

[Аватар]

в одном блоке может быть очень много

Не правильно организован. Массивы так и создают в одной секции ini - Name1, Name2 и т.д. Значит парсить стринглист без всяких ReadSection

xml

Согласен, это удобней будет

[Serge_Bliznykov]

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

С радостью бы на INI сделал, только вот таких переменных

SubMenuItemCaption

в одном блоке может быть очень много

не вижу в вашем примере такого.
покажите реальный пример, где такая ситуация с повтором ключа внутри секции.

[Shouldercannon]

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

не вижу в вашем примере такого.
покажите реальный пример, где такая ситуация с повтором ключа внутри секции.

[MenuItem1]
MenuItemCaption=Разработка
MenuItemImageIndex=0

SubMenuItemCaption=Test
SubMenuItemImageIndex=0
FileName=test.bat

[MenuItem2]
MenuItemCaption=Отладка
MenuItemImageIndex=0

SubMenuItemCaption=Debug
SubMenuItemImageIndex=0
FileName=debug.bat

SubMenuItemCaption=Ping
SubMenuItemImageIndex=0
FileName=ping.bat

SubMenuItemCaption=Tracert
SubMenuItemImageIndex=0
FileName=tracert.bat

[MenuItem3]
[MenuItem4]

[kropotkina-alice]

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

Как можно получить все строки выбранного блока? Например, указал [MenuItem2] и получил всё что у него есть или указал [MenuItem3] и получил пустоту т.к. у данного блока пока ничего нет.

Пусть файл загружен в ListBox1.

procedure TForm1.ListBox1Click(Sender: TObject);
var i: smallint;
begin
Memo1.Clear;
if (ListBox1.ItemIndex=ListBox1.Items.Count-1) or (Pos('[',ListBox1.Items[ListBox1.ItemIndex])=0) or
(Pos('[',ListBox1.Items[ListBox1.ItemIndex+1])>0) then
exit;
i:=ListBox1.ItemIndex+1;
while Pos('[',ListBox1.Items[i])=0 do
begin
Memo1.Lines.Add(ListBox1.Items[i]);
Inc(i);
end;
end;

Или я неправильно поняла?

[northener]

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

[MenuItem1]
MenuItemCaption=Разработка
MenuItemImageIndex=0

SubMenuItemCaption=Test
SubMenuItemImageIndex=0
FileName=test.bat

[MenuItem2]
MenuItemCaption=Отладка
MenuItemImageIndex=0

SubMenuItemCaption=Debug
SubMenuItemImageIndex=0
FileName=debug.bat

SubMenuItemCaption=Ping
SubMenuItemImageIndex=0
FileName=ping.bat

SubMenuItemCaption=Tracert
SubMenuItemImageIndex=0
FileName=tracert.bat

[MenuItem3]
[MenuItem4]

Стандартных решений для нестандартных извращений не существует.