Загрузка ini-файла в TTreeView

Загрузка ini-файла в TTreeView

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;

Эта запись была добавлена в Среда, 7 мая, 2008 - 14:09 В разделы TreeView, Компоненты. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.