Работа с именами секций в Ini-файлах

← →
Dr. Genius (2004-10-31 16:53) [0]

Вопрос 1. Допустим, есть Ini-файл с множеством секций (имена секций заключаются в квадратные скобки [...]). Как в ComboBox вывести ВСЕ эти имена секций построчно, т. е. чтобы в ComboBox получилось раскрывающееся меню со всеми именами секций. Вот кусок моего программного кода, но он не работает. Сама программа компилируется, но при выполнении процедуры, выложенной ниже, она завершается и выдает ошибку.

uses ..., ..., ..., IniFiles; procedure TForm1.Button1Click(Sender: TObject); var Ini: TIniFile; Sections: TStrings; begin Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + "Database.ini"); Ini.ReadSections(Sections); ComboBox1.Items := Sections; Ini.Free; end;

Вопрос 2. Как все секции в Ini-файле (со всеми содержимыми разделами, естественно) расположить в алфавитном порядке?

← →
Гарри Поттер © (2004-10-31 17:00) [1]

Ini.ReadSections(Sections); // Это куда?

скорее так:
ComboBox1.Items := Ini.ReadSections(Sections);

← →
Anatoly Podgoretsky © (2004-10-31 17:11) [2]

Гарри Поттер © (31.10.04 17:00) [1]
А функцию сам будешь писать?

Dr. Genius (31.10.04 16:53)
TStrings это базовый класс, а требуется наследник

← →
Dr. Genius (2004-10-31 17:14) [3]

> TStrings это базовый класс, а требуется наследник

Приведите, пожалуйста, пример (кусок программного кода).

Сори, незаметил. Sections: TStrings; имхо, это не нужно, просто в цикле присвой значения секций значениям итемсов в сомбобоксе.

> Dr. Genius (31.10.04 16:53)

var Ini: TIniFile; begin Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + "Database.ini"); ComboBoxName.Sorted := True; try Ini.ReadSections(ComboBoxName.Items) finally Ini.Free end end.

Возможно, я неправильно понял вопрос 2. Расположить секции в алфавитном порядке надо где - в самом IniFile или в ComboBox? Если первое - записывать в алфавитном порядке, хотя не понятно, для чего это нужно; если второе - см. пример выше.

Работа с именами секций в Ini-файлах Найти похожие ветки