Вопрос № 111329: Здравствуйте эксперты.
Как реализовать вот такое?
У меня есть ини файл со структурой:
[function]
[1]
name=
param1=
param12=
[2]
name=
param1=
param12=
Как бы загрузить всё секцию [function] в комбобокс ...
Вопрос № 111.329
Здравствуйте эксперты.
Как реализовать вот такое?
У меня есть ини файл со структурой:
[function]
[1]
name=
param1=
param12=
[2]
name=
param1=
param12=
Как бы загрузить всё секцию [function] в комбобокс , что бы отображалось только name и при этом, при выделении, в memo1 отображались param1= param12= выбранного элемента комбобокса? - Если можно в примере.
Отправлен: 28.11.2007, 08:13
Вопрос задал: Gavrila (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Degtyarev Anton
Здравствуйте, Gavrila!
Предлогаю вам сделать следующее
На форме расположить несколько лист бохов для вашего примера хватит 3х сделать их невидимыми а дальше воспользоватся 3мя свойствами ini
ReadSections - возвращает названия всех секций
ReadSection - возвращает метки внутри секции
ReadSectionValues - возвращает секцию и имя
далее всё просто см приложение
и не забудте подключить модуль IniFiles в Units;
Приложение:
--------- Сколько волка не корми, а слон всё равно толще
Ответ отправил: Degtyarev Anton (статус: 3-ий класс)
Ответ отправлен: 28.11.2007, 09:22
Отвечает: Permyak
Здравствуйте, Gavrila!
Если вы измените формат файла на указанный в приложении, то можно использовать следующий, довольно простой код.
procedure TForm1.FormCreate(Sender: TObject);
var f: TIniFile;
begin
f := TiniFile.Create('functions.ini');
f.ReadSections(ListBox1.Items);
f.Free;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var f: TIniFile;
begin
f := TiniFile.Create('functions.ini');
f.ReadSectionValues(ListBox1.Items[ListBox1.ItemIndex], Memo1.Lines);
f.Free;
end;
Приложение:
Ответ отправил: Permyak (статус: 1-ый класс)
Ответ отправлен: 29.11.2007, 22:40
