procedure LoadIniToTree(const FName: string; Tree: TTreeView);
var LS, LV: TStrings;
i, j: integer;
root: TTreeNode;
n: string;
p: PString;
begin
Tree.Items.Clear; // очищаем дерево
with TIniFile.Create(FName) do // пытаемся открыть файл FName
try
LS := TStringList.Create; // список названий секций
try
ReadSections(LS); // читаем все секции в список
LV := TStringList.Create; // список пар "имя=значение"
try
for i := 0 to LS.Count-1 do // для всех секций...
begin
LV.Clear; // подготовим список
ReadSectionValues(LS[i], LV); // читаем список пар "имя=значение" для текущей секции
root := Tree.Items.Add(nil, LS[i]); // добавляем корневой узел (имя текущей секции)
for j := 0 to LV.Count-1 do // для всех пар "имя=значение"...
begin
n := LV.Names[j]; // выделяем "имя"
// добавляем дочерний по отношению к root узел,
// в качестве текста исп. "имя"
// в качестве значения поля Data = "значение"
New(p);
p^ := LV.Values[n];
Tree.Items.AddChildObject(root, n, p);
end;
end;
finally
LV.Free;
end;
finally
LS.Free;
end;
finally
Free; // корректно уничтожаем объект TIniFile
end;
end;
// Применение:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if (TreeView1.Selected <> nil) and (TreeView1.Selected.Parent <> nil) then
begin
Edit1.Text := TreeView1.Selected.Text;
Edit2.Text := String(TreeView1.Selected.Data^);
end else
begin
Edit1.Text := '';
Edit2.Text := '';
end;
end;
// После использования не забыть освободить память, напр. так:
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
if Node.Data <> nil then
Dispose(PString(Node.Data));
end;
Автор: Dynamic
Статья Загрузка ini-файла в TTreeView раздела Компоненты и Классы TTreeView может быть полезна для разработчиков на Delphi и FreePascal.
